Строковые, слова одинаковой длины Опции

[Кристина]

Привет! Как всегда помогите с задачей на строковые:
Определить количество слов в строке, есть ли одинаковой длины сколько и какие.
Если количеством строк все просто, то с длиной сложнее. Помогите хотя бы советом, хотя лучше прогу!
Заранее спасибо!!!

[trminator]

Код

program words;
const letters=['a'..'z'];
var s : string;
   keys : array[0..5, 0..255] of byte;
   i, l, n : integer;
begin
   Write('Enter string > '); readLn(s);
   i := 1; n := length(s);
   while i <= n do
   begin l := 0;
       while not (s[i] in letters) and (i <= n) do inc(i);
       while (s[i] in letters) and (i <= n) do
       begin
           inc(l);
           inc(i)
       end;
       inc(keys[0, l]); keys[keys[0, l], l] := i - l;
   end;

   for i := 1 to 255 do
       if keys[0,i] > 1 then
          writeLn(keys[0,i], ' words with length ', i);

   ReadLn;
end.

Вроде работает... В массиве keys в i-м столбце -- номера букв, с которых начинаются слова длины i, в нулевой строке -- количество слов длины i.

Можно довольно просто дописАть пару-тройку строк, чтобы выдавались и сами слова с одинаковым кол-вом символов