Составьте программу подсчета, сколько раз во введенной строке встречается заданный фрагмент (цепочка символов). Например, «банан упал на барабан» фрагмент «ба» встречается 2 раза — Pascal(Паскаль)

uses crt;
var st,p:string;
k:integer;
 
begin
 k:=0;
 write('Строка -> ');
 readln(st);
 write('Цепочка -> ');
 readln(p);
 while pos(p,st)>0 do
 begin
  inc(k);
  delete(st,pos(p,st),length(p));
 end;
 writeln(k);
 readln;
end.