Составьте программу, вычисляющую, сколько раз в строке 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 pgt;0 do
 begin
 k:=k+1;
 delete(z,p,l);
 p:=pos(y,z);
 end;
writeln(k = ,k);
end.

Пример:
Введите строку:
мама мыла раму, мама мыла окно.
Введите слово:
мама
k = 2