Есть ли ошибки в алгоритме Бойера-Мура

[incold]

Есть ли ошибки в этом варианте алгоритма и можно ли его улучшить?

Procedure Seacrh;
  Var i, j, jump, v, q: Integer;
  Begin
    jump := 1;
    i := 1;
    While (i<=n-m+1) Do Begin
      j := m;
      While (j>=jump) And (P[j]=T[i+j-1]) Do j:=j+1;
      If j=jump-1 Then Begin
        Writeln ('образец входит в текст с позиции: ',i);
        i := i+Max(1,br[m]);
        jump := m-br[m]+1;
      end
      Else Begin
        If pbwt[j+1]=0 Then v:=m-brsuf[j+1]
        Else v:=j+1-pbwt[j+1];
      q := Max(v,j-bs[t[i+j-1]]);
      i := i+q;
      If q=m-brsuf[j+1] Then jump:=q
                        Else jump:=1;
      end;
    end;
  end.

[digitalis]

Ну для начала представлять, какую задачу он должен выполнять. Выполняет - значит, нет ошибок.
А вообще как по мне, так процедура, работающая с глобальными переменными - это ... не подобрать цензурных слов. Как улучшить? Понять ее смысл и переписать, я думаю.