С клавиатуры вводится строка, содержащая три слова, разделённые пробелом.

Напишите программу, которая меняет местами второе и третье слово. Lazarus

Program P4;

type A:array[1 ... 30] of char;

var c:string[30];

begin

Writeln ('Введите слова через пробел') ;

Readln (c[1 ... 10], c[11 ... 20], c[21 ... 30]) ;

Writeln ('Результат') ;

Writeln (c[1 ... 10], c[21 ... 30], c[11 ... 20]) ;

end.

P. S.

Может быть неверно.