{* Cлово в данной строке *}

Unit SLOVRAZ;
Interface
Implementation
Begin
 writeln('Подсчитать, сколько раз заданное слово встречается в данной строке');
End.

Program z1;

Uses slovraz.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
label 1, 2, 3, 4;
Var {* Необходимые переменные *}
  a   : String;
  b   : String;
  i   : integer;
  j   : integer;
  n   : integer;
  max : integer;
  k   : integer;
  x   : Array[1..100] Of String;
  s   : Array[1..100] Of String;
Begin
  clrscr; {* Очищаем экран *}
  readln(a);
  readln(b);
  i := 1;
  n := 1;
  For j := 1 To 100 Do {* Цикл для j => [1 .. 100] *}
  Begin
    x[j] := '';
    s[j] := '';
  End;
  While ilength(a) Then
    Goto 4;
  Until a[i]' ';
  3 : Repeat
  If a[i]' ' Then
    Goto 2;
  i := i + 1;
  If i > length(a) Then
    Goto 4;
  Until a[i] = ' ';
End;
  4:
For j := 1 To n Do {* Увеличиваем j от 1 до n с шагом 1 *}
  For i := 1 To length(x[j]) Do {* Увеличиваем i от 1 до length(x[j]) с шагом 1 *}
    If x[j][i]' ' Then
      s[j] := s[j] + x[j][i];
k := 0;
For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  If s[i] = b Then
    k := k + 1;
writeln(k);
readkey; {* Ждем нажатия любой клавиши *}
End....