Работа с хэш-таблицами

Function Convol(key:longint; n: integer):integer;
{метод свертки: преобразование восьмизначного ключа в трехзначный номер; размер  таблицы [1. . n], где n - трехзначное число}
var s:longint;
begin
s:=0;
while key>0 do
begin
s:=s+(key mod 1000);
key:=key div 1000
end;
s:=s mod n+1; 
Convol:=s;
end;

program Hashtablici;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,CRT32;
const N=100;
      p=97;
type
   rec=record
        key:string;{ключ}
        inf:Integer;
     end;
 htab=array [1..N] of rec;
var t:htab;{основная таблица}
   ch:Char;
    i:Integer;
    s:string;
    i_p:Integer;
    i_vt:integer;
function hfunc (s:string; n:Integer) : Integer;
{Функция расстановки}
var len:Integer;
      i:Integer;
      k:Integer;
      sum:Integer;
begin
  k:=Length(S) div 2;
  sum:=ord (s[k])+ord(s[k+1]) mod n+1;
  hfunc:=sum;
end;
procedure add_rec(var t:htab;i:Integer);
{Занесение записи в хэш таблицу}
var r:rec;
    chislo:Integer;
    j:Integer;
 
begin
   Writeln('Vvedite chislo zapisej : ');
   Readln(chislo);
   while (j<chislo) do
  begin
   Writeln('Vvedite kluch dobabljaemoj zapisi : ');
   Readln(r.key);
   Writeln('Vvedite inform.pole : ');
   Readln(r.inf);
  {Вычисление функции расстановки}
    i:=hfunc(r.key,n);
   {Попытка занесения в таблицу}
   while t[i].key=' ' do
     begin
     t[i]:=r;
     Writeln('Zapis'' pomeshena v poziciju ',i);
     i_p:=i;
     Writeln('i pervichnoe :  ',i_p);
     end;
  end;
   {else
     if(i=i_p)  then
       {Выполняется метод открытого перемешивания. Для определения
       вторичного индекса используется метод линейных проб с простым шагом p}
       {begin
        Writeln('Pozicija zanyata !!!');
        i_vt:=(i_p+p)mod n + 1;
        Writeln('i vtorichnoe : ',i_vt);
        i:=i_vt;
        T[i]:=r;
        Writeln('Zapis'' dobavlena v poziciju ',i_vt);
       end;}
end;
 
begin
  for i:=1 to n do
    t[i].key:=' ';
  {Основной цикл программы}
  repeat
     ClrScr;
     Writeln('1-Zanesenije zapisi v hash-tablicu : ');
     Writeln('2-Poisk zapisi v hash-tablice : ');
     Writeln('--------------------------------------');
     Writeln('0.Vihod');
     Writeln;
     Write('Vash vibor : ');
     ch:=ReadKey;
     Writeln(ch);
     Writeln;
     case ch of
         '1':begin
               add_rec(t,i);
               //Writeln('Najmite ljubuju klavishu');
               ReadKey;
             end;
          '2': begin
                 Writeln('Vvedite kluch iskomoj zapisi : ');
                 Readln(s);
                 find_rec(t,s);
               end;
     end;
  until ch='0';
end.