Определить, сколько раз в строке встречается данное слово — Pascal(Паскаль)

program string_9;

var
  s, sl: string;
  k, i: integer;

begin
  write('введите строку:');
  readln(s);
  write('введите слово: ');
  readln(sl);
  k := 0;
  while pos(sl, s) > 0 do
  begin
    k := k + 1;
    delete(s, pos(sl, s), length(sl));
  end;
  writeln(k);

end.