Задача с использованием строк

Program P21;
 
Var Sent     : String;
Var Arr      : Array[1..100] Of String;
Var Tmp,S    : String;
Var i,j,k,l  : integer;
 
Begin
     write('Enter sentense: ');
     readln(Sent);
     l:=length(Sent);
     Tmp:='';
     k:=0;
     for i:=1 to l do begin
         S:=Sent[i];
         if S=' ' then Begin
            if length(Tmp)>0 Then begin
               k:=k+1;
               Arr[k]:=Tmp;
               Tmp:='';
            end;
         end
         else
            Tmp:=Tmp + S;
     End;
     if length(Tmp)>0 Then begin
        k:=k+1;
        Arr[k]:=Tmp;
     End;
     for i:=1 to k-1 do
         for j:=i+1 to k do
             if length(Arr[j])>length(Arr[i]) then begin
                Tmp:=Arr[i];
                Arr[i]:=Arr[j];
                Arr[j]:=Tmp;
             End;
      for i:=1 to k do write(Arr[i],' ');
      writeln;
End.