Перевернуть каждое слово в предложении, сохранив неизменным их порядок в строке

Function StRevers(St : String) : String;
Begin
  If Length(St)>0 then StRevers:=StRevers(Copy(St,2,Length(St)-1))+St[1]
   else StRevers:='';
end;
 
Function ReversWords(S : String) : String;
Begin
  While (Length(S)>0) and (S[1]=' ') do Delete(S,1,1);
  If Length(S)>0 then
    ReversWords:=StRevers(Copy(S,1,Pos(' ',S)-1))+' '+ReversWords(Copy(S,Pos(' ',S),Length(S)-Pos(' ',S)+1))
  else ReversWords:='';
end;
 
Var St : String;
Begin
  St:='на дворе трава на траве дрова';
  St:=' '+St+' ';
  Writeln(ReversWords(St));
end.

var st1,st2,s: String;
    j: Integer;
 
begin
    ReadLn(st1);
    Repeat
        if Pos(' ',st1) <> 0 then
        begin
            s := Copy(st1,1,Pos(' ',st1)-1);
            Delete (st1,1,Pos(' ',st1));
            for j := Length(s) downto 1 do
                Insert(s[j],st2,Length(st2)+1);
            St2:=St2+' ';
        end
        else
        begin
            s := Copy(st1,1,Length(st1));
            for j := Length(s) downto 1 do
                Insert(s[j],st2,Length(st2)+1);
            Delete (st1,1,Length(st1));
        end
    until  Length(st1)=0;
    Write (st2);
    ReadLn
end.