Отредактировать заданный текст следующим образом: первое слово должно быть последним, второе- предпоследнем и т.д. — Pascal(Паскаль)

var s,s1,s2,c,str_n:string;
i,j,k,d:integer;
Begin
writeln('Введите строку');
readln(s);
k:=1;
s2:=' '; str_n:='';
while (i<length(s)) do begin
{while (s[i]<>' ') do}
{begin}
d:=pos(' ',s);
{s2:=s2+s[i];}
s2:=copy(s,1,d-1);
delete(s,1,d);
{i:=i+1;
end;}
insert(s2,str_n,1);
insert(' ',str_n,1);
{writeln(s2,' ');}
i:=i+1;
end;
write(str_n);
end.