Нельзя преобразовать тип function(a: byte;b: byte): byte к integer (Списки)

uses tqueueIn;
var head,tail:tqueue;
name:string;
x,y:integer;
 
procedure CopyFileToQueue(name:string;var h,t:tqueue);
var f:text;
    a:integer;
    begin
    assign(f,name); reset(f);
    while not eof(f) do 
    begin read(f,a);
    Add(h,t,a); end;
    close(f);
    end;
 
procedure CopyQueueToFile(name:string;var h,t:tqueue);
var f:text;
    a:integer;
    begin
    assign(f,name);rewrite(f);
    while head<>nil do 
    begin a:=take(h,t);
    write(f,a,' '); end;
    close(f);
    end;
    
 procedure PosMM(var head,tail:tqueue);
    var h,t:tqueue;
    max,min,temp:integer;
      a:integer;
      begin 
      InitQueue(h,t);
      min:=maxInt;
      max:=0;
      while head<>nil do begin
      a:=Take(head,tail);
   
      if (a>max) or (a<min) 
      then begin Add(h,t,a); 
      if a>max then max:=a 
      else min:=a end
      else Add(h,t,a)
      end;
      head:=h; tail:=t;
      end;
      
      procedure ChangMM(var head,tail:tqueue);
      var h,t:tqueue;
      a:integer;
      begin 
      InitQueue(h,t);
      PosMM(head,tail);
      while head<>nil do begin
      a:=Take(head,tail);
      if (a=max) or (a=min)
      then begin if (a=max) then Add(h,t,min)
      else Add(h,t,max); end
      else Add(h,t,a);
      end;
      head:=h; tail:=t;
      end;
      
begin 
write('введите имя файла ');readln(name);
InitQueue(head,tail);
CopyFileToQueue(name,head,tail);
{PosMM(head,tail);}
ChangMM(head,tail);
CopyQueueToFile(name,head,tail);
end.

{Модуль для очереди}
Unit tqueueIn;
Interface 
type 
tqueue=^que;
que = record
inf:integer;
next:tqueue;
end;
 
procedure Add(var head, tail:tqueue;item:integer);
function Take (var head, tail: tqueue):integer;
function Empty(head:tqueue):boolean;
function peek (head: tqueue): integer;
function Pop(var head: tqueue): integer;
procedure initqueue(var head,tail:tqueue);
{Procedure CopyFileToQueue(name:string;var h,t:tqueue);
procedure CopyQueueToFile(name:string;var h,t:tqueue);}
procedure CopyFileToFile(name1,name2:string);
 
 
implementation 
 
 
var head,tail:tqueue;
 
{Добавление элемента в очередь}
procedure Add(var head, tail:tqueue;item:integer);
var r:tqueue;
begin 
new(r);
r^.inf:=item;r^.next:=nil;
if head=nil
then begin head:=r; tail:=r; end
else begin tail^.next:=r; tail:=r; end;
end;
 
{Выборка верхнего элемента из очереди}
function Take (var head, tail: tqueue):integer;
var i: integer;
r: tqueue;
begin
r:= head; 
i:=r^.inf;
head:=head^.next;
if head=nil then
tail:=nil;
dispose(r);
take:=i;
end;
 
{}
function Empty(head:tqueue):boolean;
begin 
if head=nil then 
Empty:= true else
Empty :=false;
end;
 
 
{Функция просмотра верхнего элемента:}
function peek (head: tqueue): integer;
begin Peek := head^.inf; end;
 
{Функция выбора верхнего элемента из стэка:}
function Pop(var head: tqueue): integer;
var i:integer;
r:tqueue;
begin
r:=head;
i:=r^.inf;
head:= r^.next;
dispose(r);
pop:=i;
end;
 
{Инициализация очереди}
procedure initqueue(var head,tail:tqueue);
begin head:=nil;tail:=nil; end;
 
{Процедура копирует один фаил в другой}
procedure CopyFileToFile(name1,name2:string);
var f,d:text;
a:integer;
begin 
assign(f,name1); reset(f);
assign(d,name2);rewrite(d);
while not eof(f) do begin 
read(f,a); write(d,a,' '); end;
close(f); close(d);
end;
 
 
 
end.