Первое слово заменяет последним. С клавиатуры вводится строка, состоящая из четырех слов (Pascal)

( PascalABC )

var s,tmp1,tmp2: string;

var i: integer;

begin

write('Введите строку: ');

readln(s);

tmp1:=s.Substring(0,s.IndexOf(' '));

tmp2:=s.Substring(s.LastIndexOf(' ')+1);

s:=s.Remove(0,s.IndexOf(' '));

s:=s.Replace(tmp2,tmp1);

s:=tmp2+s;

write('Результат: ',s);

end.