pascal hashing function

const m = 1000;
type datarecord = record
            k:string;
            end;
      mas = array [0..m-1] of datarecord ;
var n:integer;
a:mas;
//----------------------------------
procedure implement;
var i:integer;
begin
for i:=0 to m-1 do
a[i].k:='';
end;

//---------------------------------------------------------------------
 
//---------------------------------------------
function hashfunction (rakt:string):integer;
var b:integer;
begin
end;
//------------------------------------------------------------------------
procedure insert (reiksme:raktas;var a:mas);

//--------------------------------------------------------------------------
function search(reiksme:raktas;var a:mas):integer;

begin

  Readln;
end.```
okey, i have search and insert function can someone suggest hashfunction?