Как написать компаратор для быстрой сортировки?

uses crt;
 
type
  Mass=array[1..10000001] of longint;
  Func1 = function(a,b:longint):boolean;
 
var
  f:text;
  a:Mass;
  i,j,k,n,first,last:longint;
 
procedure quicksort(var a:Mass; first, last:integer);
var f, l, mid, count:longint;
begin
f:=first;
l:=last;
mid:=a[(f+l) div 2];
repeat
while a[f]<mid do inc(f);
while a[l]>mid do dec(l);
if f<=l then
begin
count:=a[f];
a[f]:=a[l];
a[l]:=count;
inc(f);
dec(l);
end;
until f>l;
if first<l then quicksort(a, first, l);
if f<last then quicksort(a, f, last);
end;
 
begin
 
assign(f,'input.txt');
reset(f);
n:=0;
while not eof(f) do
begin
inc(n);
read(f,a[n]);
end;
close(f);
first:=1; last:=n;
quicksort(a,first,last);
assign(f,'output.txt');
rewrite(f);
writeln(f,'n=', n);
for i:=1 to n do
begin
write(f,a[i], ' ')
end;
close(f);
end.

procedure quicksort(var a:Mass; first, last:integer; func : func1);
var f, l, mid, count:longint;
begin
  f:=first;
  l:=last;
  mid:=a[(f+l) div 2];
  repeat
    while func(a[f], mid) do inc(f);
    while func(mid, a[l]) do dec(l);
    if f<=l then
    begin
      count:=a[f];
      a[f]:=a[l];
      a[l]:=count;
      inc(f);
      dec(l);
    end;
  until f>l;
  if first<l then quicksort(a, first, l, func);
  if f<last then quicksort(a, f, last, func);
end;