Поменять местами первое и третье слово

uses crt;
var s,s2: string;
    i,ns: integer;
begin
write('s=');
readln(s);
s:=s+' ';
ns:=pos(' ',s)+1;
i:=ns;
while s[i]<>' ' do
      inc(i);
s2:=copy(s,ns,i-ns)+' ';
writeln(s2);
delete (s,ns,i-ns+1);
i:=ns;
while s[i]<>' ' do
      inc(i);
insert(s2,s,i+1);
write('s=',s);
readln;
end.

uses crt;
var s,s1,s3: string;
    i,k,ns: integer;
begin
write('s=');
readln(s);
s:=s+' ';
s1:='';
while s[1]<>' ' do
      begin
      s1:=s1+s[1];
      delete(s,1,1);
      end;
k:=0; i:=0;
while k<2 do
      begin
      if s[i]=' ' then inc(k);
      inc(i);
      end;
ns:=i;
writeln(i);
while s[i]<>' ' do
      inc(i);
writeln(i);
s3:=copy(s,ns,i-ns);
delete (s,ns,length(s3));
insert(s1,s,ns);
insert(s3,s,1);
writeln('s=',s);
writeln('Длина  первого: ',length(s1));
writeln('Длина третьего: ',length(s3));
readln;
end.