Перевернуть все слова в предложении и упорядочить по возрастанию их длин- Pascal(Паскаль)

const n=25;
 
var a:array[1..n] of string;
i,k,j:integer;
s,st,ss,tt:string;
 
begin
 k:=1;
 st:='';
 
Write('Enter string: ');Readln(s);
s:=s+' ';
for i:=1 to Length(s) do
begin
if s[i]<>' ' then st:=st+s[i] else
                              begin
 
                              ss:='';
                              for j:=length(st) downto 1 do
                              ss:=ss+st[j];
 
                               a[k]:=ss;
                               st:='';
                               inc(k);
                              end;
 
end;
 
for i:=1 to k-1 do
  for j:=i+1 to k do
  begin
  if Length(a[j])<Length(a[i]) then begin
                                     tt:=a[i];
                                     a[i]:=a[j];
                                     a[j]:=tt;
 
                                    end;
 
 
  end;
 
  writeln('**rESALt***');
 for i:=1 to k do
 Writeln(a[i],' ');
 
Readln;
  
end.