Задача на текст, Найти количество одинаковых слов в файле Опции

[dog]

Дан текстовой файл, знаки препинания отсутствуют, слова разделены пробелами.

Необходимо вычислить количество слов одинаковой длины.

Например слов диной в один символ - столько-то, в два символа столько то, в три символа - столько то.

PROGRAM PRP7;

VAR
f:text;
s:string;
i:INTEGER;
n:INTEGER;

BEGIN
ASSIGN(f,'in.txt');
RESET(f);
n:=0;
WHILE NOT EOF(f) DO
BEGIN
   READLN(f,s);
   FOR i:=1 TO LENGTH(s) DO
   IF (s[i-1]=' ') OR (i=1) THEN
   BEGIN
      n:=n+1;
   END;
END;
CLOSE(f);
WRITELN;
WRITELN(n);
END.

Количество слов в файле всего определить получилось, а вот как посчитать количества слов с одинаковыми количествами букв не знаю.