кол-во слов в тексте Опции

[tigra]

Задача на ваше профессиональное рассмотрение:
Подсчитать количество слов в тексте,которые содержат одинаковое кол-во букв.
Слова в тексте разделяются символом ' '
'.' - признак конца строки.
Текст вводится с клавиатуры. Не могу сделать самое главное - разбить текст на слова... Помогите чем могите.

[tigra]

В задаче этого не скозано, но по-моему кол-во букв(n) тоже вводится с клавиатуры.
Кажется, тут это можно сделать двумя циклами:
один выделяет слова из текста

Код

until s[i]='.'

,
а другой их считает

Код

if length(sl)=n then x:=x+1

.
Кол-во слов неопределенное (сколько получится), так что я не знаю как их называть и отличать друг от друга...