Pascal//определить длину самого короткого и самого длинного слова в строке

[ShnurOK]

Все мозги уже сломал, помогите пожалуйста!
Дана строка символов до точки. Группы символов в ней между группами пробелов считаются словами. Определить длину самого короткого и самого длинного слова.
Заранее спасибо за помощь!

[Карась]

program Project1;

{$APPTYPE CONSOLE}

Var mas: array [1..50] of integer;
    i, x: integer;
    S, S2: string;
begin
S2 := ''; x := 1;
Writeln ('Vvedite stroky:'); Readln (S);
For i := 1 to Length(S) do begin
      S2 := S2 + S[i];
      if S[i] = ' ' then begin
      mas[x] := Length(S2) - 1; S2 := ''; x := x + 1; End;
      if S[i] = '.' then begin mas[x] := Length(S2) - 1; break; End;
      if i = Length(S) then mas[x] := Length(S2);
End;
For i := 1 to 20 do Write (mas[i],' ');
Readln;
end.

Эта программа создают из предложения массив длин слов. Тобишь в результате получаем массив где несложно найти мин и макс.......

[ShnurOK]

Карась СПАСИБО!!!