{* Задача 195 *}

Unit ZADACH195;
Interface
Implementation
Begin
 writeln('Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов заданной длины.');
End.

Program zadach195;

Uses zadach195.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  st    : String;
  i     : integer;
  j     : integer;
  k     : integer;
  count : integer;
Begin
  clrscr; {* Очистка экрана *}
  st := 'It is text
  For check my
    Program ';
  
Uses zadach195.pas; {* Эту строку можно удалить *}
  write('koli4estvo simvolov=');
  readln(count);
  st := st + ' ';
  j := 0;
  For i := 1 To length(st) Do {* Увеличиваем i от 1 до length(st) с шагом 1 *}
    If (st[i]' ') Then
      inc(j) {* Увеличиваем j на 1 *}
    Else Begin
      If (j = count) Then
        inc(k); {* Увеличиваем k на 1 *}
  j := 0;
End;
  writeln; {* Пропускаем одну строку *}
  writeln(st);
  writeln(k, ' slov s dlinoy=', count);
  readln; {* Ждем нажатия Enter *}
  End....