Модификация алгоритмов поиска слова в тексте( Прямой поиск, КМП, БМ)

//Прямой поиск
function DirectTxtSearch(Wrd:String;Txt:String;var Position: integer): boolean;
{Функция поиска слова Wrd в тексте Txt,}
{если слово найдено, то возвращает значение true}
{и позицию Position начала первого слова Wrd,}
{иначе - false и Position не изменяется}
var M,N,i,j: integer;
begin
M:=Length(Wrd);
N:=Length(Txt);
i := 0;
repeat
j := 1; i := i + 1;
{Осуществляем посимвольное сравнение}
while (j <= M) and
(Txt[i+j-1] = Wrd[j]) do j := j+1; until (j = M+1) or {Совпало все слово}
(i >= N-M+1); {Конец слова за концом текста} {Оценка результатов поиска}
if j = M+1 then begin
DirectTxtSearch := true;
Position := i; end else begin
DirectTxtSearch := false; end; end;

//КМП поиск
function KMPTxtSearch(Wrd: String ;Txt: String;var Position: integer): boolean;
{Функция поиска слова Wrd в тексте Txt,} {если слово
найдено, то возвращает значение true}
{и позицию Position начала первого слова Wrd,}
{иначе - false и Position не изменяется}
var
M,N,i,  {Индекс начала слова в тексте}
j,  {Индекс текущ.символа слова}
k,  {Индекс текущ.символа суффикса слова}
LenSuff: integer; {Длина суффикса}
Equal: boolean;  {Признак совпадения суффикса с началом}
Shift: array[1..256] of integer;{Массив смещений}
begin
M:=Length(Wrd);
N:=Length(Txt);
{Заполнение массива Shift}
Shift[1] := 1; Shift[2] := 1; {Для первых двух смещение 1}
{Вычисляем смещение для остальных M-2 символов слова} for j := 3 to M do begin
Shift[j] := 1;  {Предопределенное значение} {Перебираем все возможные длины суффиксов}
for LenSuff := 1 to j-2 do begin Equal:=true;
{Сравниваем посимвольно суффикс с началом слова} for k := 1 to LenSuff do begin if Wrd[k] <>
Wrd[j-LenSuff+k-1] then Equal:=false; end; {Если суффикс совпал, то Shift - это смещение
от начала слова до начала суффикса} if Equal then
Shift[j] := j - LenSuff - 1; end; end; {Поиск слова Wrd в тексте Txt, аналогичный прямому,
только смещение не на 1, а на переменный шаг Shift} i := 0; j := 1;  {Начальные значения} repeat
{Смещение слова}
i := i + Shift[j];
j := 1;
{Посимвольное сравнение}
while (j <= M) and
(Txt[i+j-1] = Wrd[j]) do j := j+1; until (j = M+1) or (i >= N-M+1);
{Оценка результатов поиска} if j = M+1 then begin
KMPTxtSearch := true;
Position := i; end else begin
KMPTxtSearch := false; end; end;

//БМ алгоритм
function BMTxtSearch(Wrd: String; Txt: String;var Position: integer): boolean;
{Функция поиска слова Wrd в тексте Txt,}
{если слово найдено, то возвращает значение true}
{и позицию Position начала первого слова Wrd,}
{иначе - false и Position не изменяется}
var
 
M,N,i,  {Индекс начала слова в тексте}
j: integer;   {Индекс текущего символа слова} ch: char;
Shift: array[#0..#$FF] of integer;   {Массив смещений}
begin
M:=Length(Wrd);
 N:=Length(Txt);
{Заполнение массива Shift}
for ch:=#0 to #$FF do Shift[ch] := M;
for j:=1 to M do Shift[Wrd[j]] := M-j;
{Поиск слова Wrd в тексте Txt}
i := 1;   {Начало слова совпадает с началом текста}
repeat
j := M+1; {Сравнивать будем с последнего символа} {Посимвольное сравнение слова, начиная с правого символа}
repeat
j := j-1;
until (j < 1) or (Wrd[j] <> Txt[i+j-1]);
if j >= 1 then
i := i + (j + Shift[Txt[i+j-1]] - M); {Сдвиг слова вправо}
until (j < 1) or (i > N-M+1); {Оценка результатов поиска}
Result:=j<1;
If Result then Position:=i;
end;

  { вхождения с перекрытиями }
  Write('Found:'); p:=1;
  while (p<=Length(t)) and xxxTxtSearch(w,t,p) do begin
    Write(' @',p);
    Inc(p);
  end;
 
  { вхождения без перекрытий }
  Write('Found:'); p:=1;
  while (p<=Length(t)) and xxxTxtSearch(w,t,p) do begin
    Write(' @',p);
    Inc(p,Length(w));
  end;

{ Прямой поиск }
function DirectTxtSearch(const Wrd: String; const Txt: String; var Position: Integer): Boolean;
{ Функция поиска фрагмента Wrd в тексте Txt начиная с индекса Position.
  Если найден,
  то возвращает значение True и позицию Position начала первого фрагмента Wrd,
  иначе - False, Position не изменяется }
var i, j: Integer;
begin
  DirectTxtSearch:=False;
  i:=Position; if i<1 then i:=1;
  for i:=i to Length(Txt)-Length(Wrd)+1 do begin
    j:=Length(Wrd); while (j>0) and (Txt[i+j-1]=Wrd[j]) do Dec(j);
    if j=0 then begin
      DirectTxtSearch:=True; Position:=i; Exit;
    end;
  end;
end;

  if Length(Txt)+Length(Wrd)=0 then Exit;

  if Length(Txt)+Length(Wrd)=0 then