Как отправить аргументы в подпрограмму

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
type zap=record
         nam:string;
         kol:integer;
         end;
     mas=array[1..10] of zap;
     func=function(z1,z2:zap):boolean;//тип функции
{$F+}
function nam(z1,z2:zap):boolean;
begin
nam:=z1.nam>z2.nam;//по возрастанию поля nam
end;
function kol(z1,z2:zap):boolean;
begin
kol:=z1.kol>z2.kol;//по возрастанию поля kol
end;
procedure sort(var a:mas;n:byte;f:func);
var i,j:byte;
    z:zap;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if f(a[i],a[j]) then
 begin
  z:=a[i];
  a[i]:=a[j];
  a[j]:=z;
 end;
end;
var a:mas;
    n,i:byte;
begin
n:=3;
a[1].nam:='tttt';a[1].kol:=5;
a[2].nam:='oooo';a[2].kol:=3;
a[3].nam:='aaaa';a[3].kol:=1;
//сортировка по полю nam
sort(a,3,nam);
for i:=1 to 3 do
writeln(a[i].nam,' ',a[i].kol);
//сортировка по полю kol
sort(a,3,kol);
for i:=1 to 3 do
writeln(a[i].nam,' ',a[i].kol);
readln
end.