Составьте программу, вычисляющую, сколько раз в строке X встречается слово Y. Строку X и слово Y введите с клавиатуры.

Var x, y, z:string; k, p, l:integer;

begin

writeln ('Введите строку:') ;

readln (x) ;

writeln ('Введите слово:') ;

readln (y) ;

z:=x; k:=0;

l:=length (y) ;

p:=pos (y, x) ;

while p>0 do

begin

k:=k+1;

delete (z, p, l) ;

p:=pos (y, z) ;

end;

writeln ('k = ', k) ;

end.

Пример:

Введите строку:

мама мыла раму, мама мыла окно.

Введите слово:

мама

k = 2