Контрошка(((

[B.a.k.i.R]

Дан текстовый файл, сколько в нем слов?

[DM_bite]

Пробегаешь по строкам и если:

if s[i]=' ' then inc(k);

Предварительно: k:=0;

[Serge_Bliznykov]

Сообщение от DM_bite

if s[i]=' ' then inc(k);

извините, но, это ОЧЕНЬ упрощённый вариант...

во-первых этот код будет давать неверный результат:
для строчки:
ПРИВЕТ ВСЕМ
сколько слов будет подсчитано?

во-вторых, не сказано, чем разделяются слова (не удивлюсь, если речь идёт об обыкновенном тексте, тогда надо брать стандартные разделители (точка, запятая, тире, вопросительный и восклицательный знаки, скобки)

B.a.k.i.R, а если бы прочитали правила и назвали тему как положено - Как подсчитать количество слов в тексте,
то внизу форум сам бы предложил похожие темы.
Ну, раз Вы этого не сделали - ищите поиском код разбиения текста на слова.
На данном форуме это решалось многократно.