Помогите пожалуйста решить одну задачку в Паскале...Заранее спасибо

[VisTBacK]

Помогите пожалуйста решить одну задачку в Паскале...

Определить сколько раз в заданном предложении встретится сочетание 2х первых букв. Напечатать исходный тексти число сочетаний.

Заранее спасибо..

[eoln]

var
  s, s2, stroka: string;
  i: integer;
begin
  write('input = '); readln(stroka);
  i := 0;
  s := stroka;
  s2 := copy(s, 1, 2);
  while pos(s2, s) > 0 do
  begin
    delete(s, 1, pos(s2, s)+1);
    inc(i)
  end;
  writeln('Dano = ', stroka);
  writeln('Poisk = ', s2);
  writeln('Kol-vo = ', i);
  readln
end.

[VisTBacK]

Большое Спасибо!!!=)