Вывести на экран слова в порядке невозрастания (убывания) их длин

Const divword = [' ','.',',',':',';','-','+','*','/','\','(',')'];
Type
  words = ^twords;
  twords = Record
             S    : String;
             Next : words;
           end;
Var
  St    : String;
  w0,w  : words;
  i,j   : Byte;
 
Procedure AddS(ss : String);
Var t : words;
Begin
  New(t);
  t^.S:=ss; t^.Next:=nil;
  w:=w0;
  if w=nil then w0:=t
  else
  Begin
    While (w^.Next<>nil) and (Length(w^.Next^.S)>=Length(ss)) do w:=w^.Next;
    If (w=w0) and (Length(w^.S)<Length(ss)) then
    Begin
      t^.Next:=w0;
      w0:=t;
    end
     else
     Begin
       t^.Next:=w^.Next;
       w^.Next:=t;
     end;
  end;
end;
 
Begin
  w0:=nil;
  Repeat
   {Readln(St);}
   {-}St:=' 1.  Закономерность   - это проявление      закона   на   поверхности   явлений   в    виде    правильной    повторяемости       явлений     при    определенных    условиях.   ';{-}
 
    i:=1;
    While i<=Length(St) do
    Begin
      While (i<=Length(St)) and (St[i] in divword) do Inc(i);
      j:=i;
      While (j<=Length(St)) and not (St[j] in divword) do Inc(j);
      If i<>j then AddS(Copy(St,i,j-i));
      i:=j;
    end;
  Until {St=''} {-}True{-} ;
  
  While w0<>nil do
  Begin
   Writeln(w0^.S);
    w:=w0;
    w0:=w0^.Next;
    Dispose(w);
  end;
end.

var
  s:array[1..10] of string;
  l,i,j,n:integer;
  t:string;
begin
  writeln('Введите текст (не более 10 строк. Конец ввода - пустая строка)>');
  n:=0;
  repeat
    n:=n+1;
    readln(s[n]);
  until (s[n]='') or (n=10);