{* Количество слов в предложении *}

Unit Z9;
Interface
Implementation
Begin
 writeln('Количество слов в предложении');
End.

Program z9;

Uses z9.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  tec : String;
  l   : longint;
  i   : longint;
  n   : longint;
Begin
  clrscr; {* Очищаем экран *}
  write('введите текст:');
  readln(tec);
  l := length(tec) + 1;
  tec[l] := ' ';
  For i := 1 To l Do {* Цикл для i => [1 .. l] *}
    If tec[i] = ' ' Then
      n := n + 1;
  write('В тексте ', n, ' слов');
  readln; {* Ждем нажатия Enter *}
End.