Алгоритм Боуера-Мура. "c" -> "pascal" Опции

[eprsteklmn]

SOS Народ!! дайте пожалуйста у кого естя Алгоритм Боуера-Мура НА ПАСКАЛЕ!!!
Я в инете находил... но они все не работают (2).... ...(а у меня осталось всего три дня!!!!)
Или переведите вот с языка СИ на Паскаль:) с комментариями, если можно, пожалуйста!!!
:thanks:

/* Preprocessing of the Bad Character function shift */
PRE_BC( char *x, int m, int bm_bc[] ) {
   int a, j; 
   
   for ( a=0; a < ASIZE; a++ ) bm_bc[ a ] = m; 
   for ( j=0; j < m-1;  j++ ) bm_bc[ (unsigned char)x[ j ] ] = m - j - 1; 
  }
 
 /* Preprocessing of the Good Suffix function shift  */
 PRE_GS( char *x, int m,  int bm_gs[] ) {
   int i, j, p, f[XSIZE];
   
   memset( bm_gs, 0, ( m + 1 ) * sizeof( int ) );
   f[ m ] = j = m + 1; 
   for (i=m; i > 0; i-- ) {
	  while ( j <= m && x[ i - 1 ] != x[ j - 1 ] ) {
		if ( bm_gs[ j ] == 0 ) bm_gs[ j ] = j - i;
	   j = f[ j ];
	 }
	 f[ i - 1 ] = --j; 
   }
   p=f[ 0 ]; 
   for ( j=0; j <= m; ++j ) {
	  if ( bm_gs[ j ] == 0 ) bm_gs[ j ] = p; 
	 if ( j == p ) p = f[ p ]; 
   }
}

/* Boyer-Moore string matching algorithm */
void BM( char *x, char *y, int n, int m ) {
  int i, j, bm_gs[XSIZE], bm_bc[ASIZE];
  
  /* Preprocessing */
  PRE_GS( x, m, bm_gs ); 
  PRE_BC( x, m, bm_bc );
  i=0; 
  while ( i <= n-m ) {
	 for ( j=m-1; j >= 0 && x[j] == y[ i+j ];  --j ); 
	if ( j < 0 ) {
	   OUTPUT(i); 
	  i += bm_gs[ j+1 ]; 
	}
	else i += MAX(( bm_gs[ j+1 ]), ( bm_bc[ (unsigned char)y[ i+j ] ] - m + j + 1 ) ); 
   }	
}

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

[Dron671]

volvo, Интересно получилось.
Но больше пытаюсь понять, тем больше вопросов.

1. А где мы задаём образ для поиска ?
2 where: pchar; а что это ?
3. uses strings; и где мы это используем эту библиотеку ?

  assign(f, 'c:\f.txt'); reset(f, 1);
  n := filesize(f);

  getmem(where, succ(n));
  blockread(f, where[1], n);
  close(f);

А что мы тут делаем ? И куда мы чего переписываем ?

[volvo]

1. А где мы задаём образ для поиска ?

function bmSearch(start: integer;
         const s: pchar; const p: string): integer;

Параметр P это и есть образ для поиска...

2 where: pchar; а что это ?

А это PChar - для работы с длинными строками... Теорию читать здесь:
FAQ: Строки. Краткая теория

3. uses strings; и где мы это используем эту библиотеку ?

А вся работа с типом PChar (все процедуры и функции) реализована в модуле Strings, поэтому как только я в программе использую тип PChar, я сразу добавляю в список модулей и Strings тоже...

А что мы тут делаем ? И куда мы чего переписываем ?

  assign(f, 'c:\f.txt'); reset(f, 1);
  { размер файла - именно столько символов нужно для хранения строки }
  n := filesize(f);

  {
    тут запрашиваем динамическую память, достаточную для
    хранения строки + 1 символ - завершающий #0
  }
  getmem(where, succ(n));

  {
    Читаем блок даннях из файла (для доп. информации - TP Help) длиной N символов,
    то есть все содержимое файла в выделенную память начиная с первой позиции
  }
  blockread(f, where[1], n);

  { закрываем файл, он нам больше не нужен... }
  close(f);