Ввести двухбуквенное сочетание. Подсчитать, сколько раз оно в строке — Pascal(Паскаль)

var 
s,s1:string;
k:integer;
begin
writeln('Vvedite stroku razmer 2 simvola');
readln(s1);
writeln('Vvedite stroku gde poisk');
readln(s);
k:=0;
while pos(s1,s)>0 do
 begin
  delete(s,pos(s1,s),2);
  k:=k+1;
 end;
writeln('Itogo: ',k);
end.