задача на длину слов Опции

[Гость]

Дана строка, содержащая текст. Найти длину самого короткого слова и самого длинного слова.

Uses Crt;
var
s : array [1..254] of integer;
l,j,i,k,p:integer;
a, text : string;
begin
     clrscr;
     readln(text);
     text:=text + ' ';
     l:=length(text);
     for i:=1 to l do begin
         if text[i]=' ' then begin inc(j);
         s[j]:=i-1-p;
         p:=i;
         Writeln(s[j]);
     end;
   end;
     for i:=1 to j do begin
         for p:=1 to j do begin
              if s[i]<s[p] then l:=i;
              if s[i]>s[p] then k:=i;
         end;
     end;
     Writeln(' Long Word:',s[k]);
     Writeln('Short Word:',s[l]);
     readkey;
end.

Помогите плз!Работает через раз.Может у когонить есть готовый код ?

[volvo]

Артемий, вводим строку '333 22 333 4444 123 1 444444 555 88', и наслаждаемся результатом...