Составьте программу, вычисляющую, сколько раз в строке 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