Перевернуть все слова в предложении

program n6;
var
s,s1,slovo,slovo1:string;
a:array[1..100] of string;
i,j,k:integer;
begin
writeln('vvedit stroky');
readln(s);
s:=s+' ';
for i:=1 to length(s) do begin
if s[i]<>' ' then
slovo:=slovo+s[i]
else
if s[i]=' ' then begin
for j:=length(slovo) downto 1 do
slovo1:=slovo1+slovo[j];
inc(k);
a[k]:=slovo1;
slovo:='';
slovo1:='';
end;
end;
for i:=1 to k do
s1:=s1+' '+a[i];
if s1[1]=' ' then
delete(s1,1,1);
writeln(s1);
end.

var
s,s1,word,word1:string;
i:integer;
begin
readln(s);
s:=s+' ';
while pos(' ',s)>0 do begin
word:=copy(s,1,pos(' ',s));
for i:=length(word) downto 1 do
word1:=word1+word[i];;
s1:=s1+word1;
delete(s,1,pos(' ',s));
word1:='';
end;
if s1[1]=' ' then
delete(s1,1,1);
writeln(s1);
end.

var
   s,s1:string;
   i,a:integer;
begin
 readln(s);
 repeat
  a:=pos(' ',s);
  if a<>0 then s1:=copy(s,1,a-1) else s1:=s;
  for i:=length(s1) downto 1 do
   write(s[i]);write(' ');
  delete(s,1,a);
 until a=0;
end.