Đảo tungwgf từ của xâu trong pascal

`\text{CODE}`

var s : string ;
    i, j, lus : longint ;
begin
    readln(s);
    s := s + ' ';
    lus := 1 ;
    for i := 1 to length(s) do 
         begin
        if s[i] = ' ' then 
             begin
            for j := i downto lus do write(s[j]);
            lus := i + 1 ;
             end ;
         end ;
end .

uses crt;
var  s,s2:string;
i,j:integer;
begin
clrscr;
readln(s);
s:=s+' ';
for i:=1 to length(s) do
 if s[i]<>' ' then s2:=s2+s[i]
 else
 begin
  for j:=length(s2) downto 1 do
   write(s2[j]);
   write(' '); 
  s2:='';
 end;
readln
end.