Алгоритм Хорспула (поиск подстроки)

int HorspoolMatch(string T,string P)
{       
        int n=T.length();// длина строки
        
        int m=P.length();// длина шаблона 
    
        int Slide[255];// талица сдвигов на 256 символов
        for(int i=0; i<255; i++)
                Slide[i]=m;// таблица сдвигов заполняется длинной образца
        for(int l=0; l<m-1; l++)         // в ТС 
        { Slide[P[l]] = m -1- l;}
        int i=m-1;//позиция правого конца образца
 
        while(i <= (n - 1))// пока првый конец не достигнет правого конца строки
        {
            int k=0;// количество совпавших символов
                while(k<= m-1&& P[m-1-k]==T[i-k])// пока количество совпадений меньше образца и           
                {
                                              // если  текущий символ совпадает с символом в строке
                           k=k+1;             // увеличиваем к  на 1
                }
            
          if (k==m)                  // проверяем чего это из предыдущего цикла вывалилась программа- на совпадение 
            return i-m+1;          // если совпадение полное то  возвращаем  позицию первого совпавшего симовола в строке 
         
          else                       // если не все совпали 
                {   cout<<"Смещение "<<Slide[T[i]]<<endl ;
                    i= i+ Slide[T[i]];    //  сдвигаем i(позиция правого конца шаблона) по таблице сдвигов
                    
                  }
 
 
            
 
        }// если программа вывалилась из внешнего цикла то усё - 
          //ничего она не нашла и дошла до конца текста
        
        
            return -1;// пуляем сообщение о неудаче
}
 
//void main()
int main()
{
        setlocale (LC_ALL, "Russian");
         string T;
       
        string P;//строка, которую ищем
        int pos;
        cin>>T;// 
        cout<< endl;
        cin >>P;//
        cout<< endl;
        cout<<endl;
        pos=HorspoolMatch(T,P);
     if( pos==-1)
         cout << "Поиск не дал результатов :-(((    "<< endl;
     else 
         cout<<" Искомое сочетание найдено !!!  С позиции   "<< pos<<endl;
     system("PAUSE");
     return EXIT_SUCCESS;    
}

#include <cstdlib>
#include <iostream>
#include <dstring.h>
#include <sysutils.hpp>
 using namespace std;
             int HorspoolMatch(AnsiString T,AnsiString P)
{
        int n=T.Length();// длина строки
 
        int m=P.Length();// длина шаблона
 
        int Slide[255];// талица сдвигов на 256 символов
        for(int i=1; i<255; i++)
                Slide[i]=m;// таблица сдвигов заполняется длинной образца
        for(int l=1; l<m; l++)         // в ТС
        { Slide[P[l]] = m -l;}
        int i=m;//позиция правого конца образца
 
        while(i <= (n-1) )// пока првый конец не достигнет правого конца строки
        {
            int k=0;// количество совпавших символов
                while(k<= m && P[m-1-k]==T[i-k])// пока количество совпадений меньше образца и
                {
                                              // если  текущий символ совпадает с символом в строке
                           k=k+1;             // увеличиваем к  на 1
                }
 
          if (k==m)                  // проверяем чего это из предыдущего цикла вывалилась программа- на совпадение
            return i-m+1;          // если совпадение полное то  возвращаем  позицию первого совпавшего симовола в строке
 
          else                       // если не все совпали
                {   //cout<<"Смещение "<<Slide[T[i]]<<endl ;
                    i= i+ Slide[T[i]];    //  сдвигаем i(позиция правого конца шаблона) по таблице сдвигов
 
                  }
 
 
            
 
        }// если программа вывалилась из внешнего цикла то усё -
          //ничего она не нашла и дошла до конца текста
        
 
            return -1;// пуляем сообщение о неудаче
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 T= Edit1->Text;
 P= Edit2->Text;
 pos=HorspoolMatch(T,P);
     if( pos==-1)
           Label3->Caption="Поиск не дал результатов :-(((    ";
     else
         Label3->Caption=" Искомое сочетание найдено !!! УРАААА :-))) !!!!  С позиции   ";
 
}

int HorspoolMatch(AnsiString T, AnsiString P)
{
    int n = T.Length();
    int m = P.Length();
 
    int Slide[255];
    for(int i=0; i<255; i++)
        Slide[i]=m;
 
    for(int l=0; l<m-1; l++)
    {
        Slide[P[l+1]] = m -1- l; // <--- *** Раз ***
    }
 
    int i=m-1;
    while(i <= (n - 1))
    {
        int k=0;
        while(k<= m-1&& P[m-1-k+1]==T[i-k+1]) // <--- *** Два, три (можешь "+1-1" убрать) ***
        {
            k=k+1;
        }
 
        if (k==m)
            return i-m+1;
        else
        {
            i= i+ Slide[T[i+1]]; // <--- *** Четыре ***
        }
    }
    return -1;
}