{* Количество слов в файле *}

Unit CUNTWORD;
Interface
Implementation
Begin
 writeln('Количество слов в файле');
End.

Program pas;

Uses cuntword.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s  : String;
  pf : String;
  f  : text;
  x  : integer;
  i  : integer;
Begin
  writeln('Vvedite put k fily:');
  Readln(pf);
  assign(f, pf); {* Привязка переменной f к файлу pf *}
  reset(f); {* Подготовка переменной f для чтения из файла *}
  Repeat       Readln(f, s);
    For i := 0 To length(s) Do {* Цикл для i => [0 .. length(s)] *}
    Begin
      If s[i] = ' ' Then
        inc(x); {* Прибавим к x единицу *}
    End;
  Until EOF(F); {* Ждем пока закончится файл *}
  inc(x); {* Увеличиваем x на 1 *}
  Writeln('V File ', pf, ' naxoditsa ', x, ' slov.');
  readln; {* Приостановка программы. Ожидание Enter *}
End.