{* Задача 6 *}

Unit ZADACH6;
Interface
Implementation
Begin
 writeln('Определить количество повторений в тексте заданного слова. Считать что все слова в тексте оделены друг от друга пробелом.');
End.

Program zadach6;

Uses zadach6.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s  : String;
  sl : String;
  k  : integer;
  : integer;
Begin
  write('vvedite text:');
  readln(s);
  write('vvedite slovo: ');
  readln(sl);
  k := 0;
  While pos(sl, s) > 0 Do
  Begin
    k := k + 1;
    delete(s, pos(sl, s), length(sl));
  End;
  writeln(k);
End.