в строке поменять 1 и последнее слово местами. Программа есть только нужно сделать всё в 1 строке

[lect111]

в строке поменять 1 и последнее слово местами. Программа есть только нужно сделать всё в 1 строке

uses crt;
var s,s1,s2: string;
    i: byte;
begin
write('s='); readln(s);
s1:=''; s2:='';
while (s[1]<>' ') do
      begin
      s1:=s1+s[1];
      delete(s,1,1);
      end;
i:=length(s);
while s[i]<>' ' do
      begin
      s2:=s[i]+s2;
      delete(s,i,1);
      dec(i);
      end;
s:=s2+s+s1;
writeln('s=',s);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.