Расположить слова в каждом предложении в порядке невозрастания числа символов в них

[TLiX]

Эта программа переставляет строки в порядке невозрастания длин строк, а нужно переставить в порядке невозрастания по количеству букв в слове.
Например:
ввод
иду я домой
вывод
я иду домой

Вот что есть:

program lab9;
type
  masstr=array [1..10] of string;
  ms=array [1..10] of string;
var
  s:masstr;
  sl:ms;
  i,j,n,t,z,q:integer;
  m:string;
begin
  writeln('‚ўҐ¤ЁвҐ Ёб室*л© вҐЄбв.');
  n:=1;
  repeat
    readln(m);
    s[n]:=m;
    n:=n+1;
  until m='';
  for i:=1 to n do
    s[i]:=s[i]+' ';
  i:=1;
  j:=1;
  for i:=1 to n do
    begin
      m:=s[i];
      t:=1;
      while t <= length(m) do
        begin
          sl[j]:=sl[j]+m[t];
          if m[t]='.' then j:=j+1;
          t:=t+1
        end;
  for i:=1 to j-1 do
    writeln(sl[i]);
  z:=j-1;
  while z>1 do
    begin
      for i:=1 to z do
        if length(sl[i]) > length(sl[i+1]) then
          begin
            m:=sl[i];
            sl[i]:=sl[i+1];
            sl[i+1]:=m;
          end;
      z:=z-1;
    end;
  writeln('’ҐЇҐам бва®ЄЁ гЇ®а冷зҐ*л ў Ї®ап¤ЄҐ *Ґўo§а*бв**Ёп зЁб«* бЁ¬ў®«®ў ў *Ёе:');
  for i:= 1 to j-1 do
    writeln(sl[i]);
  readln;

Если кто может помочь с ней, буду очень благодарен