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

var x,y,z:string; k,p,l:integer;beginwriteln('Введите строку:');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