Просьба помочь разобраться с поиском в строке по алгоритму Бойера-Мура

[Ветас]

Здравствуйте, уважаемые форумчане.

Пытаюсь реализовать программу на Паскале, которая будет подсчитывать количество вхождений символов подстроки в строке.

function BMSearch(StartPos: Integer; const S, P: String): Integer;
type
TBMTable = array[0..255] of Integer;
var
Pos, lp, i: Integer;
BMT: TBMTable;
begin

for i := 0 to 255 do BMT[i] := Length(P);
for i := Length(P) downto 1 do if BMT[Byte(P[i])] = Length(P) then
BMT[Byte(P[i])] := Length(P) - i;

lp := Length(P);
Pos := StartPos + lp -1;
while Pos <= Length(S) do
if P[lp] <> S[Pos] then Pos := Pos + BMT[Byte(S[Pos])] else
if lp = 1 then begin bmsearch{Result} := Pos; Exit; end else
for i := lp - 1 downto 1 do if P[i] <> S[Pos - lp + i] then
 begin
   Inc(Pos);
     Break;
      end else if i = 1 then
       begin
         {Result}bmsearch := Pos - lp + 1;
           Exit;
            end;
            {Result}bmsearch := 0;

            end;

var i: integer;
s,p:string[30];
begin
  writeln('Введите строку:');readln(s);
  writeln;
  writeln('Введите подстроку:');readln(p);
  i := bmsearch(1,s,p);
  writeln(i);

  readln;
end.

Но программа ищет лишь первое вхождение символов подстроки в строке.
Подскажите, пожалуйста, какое условие необходимо добавить, чтобы дальше продолжался поиск символов подстроки в строке ?

[dexterua]

function BMSearch(StartPos: Integer; const S, P: String): Integer;
type
TBMTable = array[0..255] of Integer;
var
  Pos, lp, i,kol: Integer;
  BMT: TBMTable;
begin

  kol:=0;
  for i := 0 to 255 do BMT[i] := Length(P);
  for i := Length(P) downto 1 do if BMT[Byte(P[i])] = Length(P) then
  BMT[Byte(P[i])] := Length(P) - i;

  lp := Length(P);
  Pos := StartPos + lp -1;
  while Pos <= Length(S) do
  if P[lp] <> S[Pos] then Pos := Pos + BMT[Byte(S[Pos])] else
  if lp = 1 then
  begin
    inc(kol);
    inc(Pos);
  end else
  for i := lp - 1 downto 1 do
  if P[i] <> S[Pos - lp + i] then
  begin
   Inc(Pos);
  end
  else if i = 1 then
  begin
    inc(kol);
    inc(Pos);
  end;
  {Result}bmsearch := kol;
end;

var i: integer;
s,p:string[30];
begin
writeln('Введите строку:');readln(s);
writeln;
writeln('Введите подстроку:');readln(p);
i := bmsearch(1,s,p);
writeln(i);

readln;
 end.

Ну например вот так, надо то просто не завершать функцию, а дать ей крутится увеличивая количество.