Для формирования хеш-адреса использовать хеш-функцию универсального хеширования

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;
 
const
A=0.61;
z1=1;
m=10;
type
  mas1=array [1..m] of integer;
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 procedure TForm1.Button1Click(Sender: TObject);
var
d:array [1..100] of integer;
t:mas1;
i,n,c1:integer;
 
   function h(k,i:integer):integer;
  var
  h1,int:integer;
  begin
 
// как я понимаю здесь должено быть построение универсальной хеш-функции
 
    h:=(h1+c1*i)mod m   //пошаговая проверка на колиззии (линейная)
  end;               
 
    procedure Ini(var t1:mas1);
  var
  i:integer;
  begin
    for i:=1 to m-1 do          // используется уже в выводе
    t1[i]:=maxint;
  end;
 
    procedure insert(var k:integer; var t1:mas1);
  var
  i,j:integer;
begin
  i:=0;
  j:=h(k,i);
  repeat
    t1[j]:=k;
    i:=i+1;
    j:=h(k,i);
    until (i=m) and (j<>maxint);
  end;
 
 
 begin
    c1:=strtoint(edit1.Text);
    n:=memo1.lines.count;
    for i:=1 to n-1 do
    d[i]:=strtoint(memo1.Lines[i]);
    Ini(t);
    for i:=0 to m-1 do
    begin
    insert(d[i],t);
    stringgrid1.Cells[0,i]:=inttostr(t[i]);
    end;
  end;
end.