Функция как параметр процедуры

program test;
 
type
  TFunction=function(x:real):real;{объявляем функцию как тип данных}
 
{$F+}
{фукнция возводящая в куб}
function P(a:real):real;
begin
  P:=a*a*a;
end;
 
function Q(c:real):real;{еще фукнция}
begin
  if a>0 then Q:=sqrt(a)
  else Q:=-1;
end;
{$F-}
 
{наша процедура}
procedure proc(f:TFunction);
var
  x,y:real;
begin
  x:=0.0;
  while x<=1.0 do
  begin
    y:=f(x);{вызываем универсальную функцию}
    writeln(y:0:2);
    x:=x+0.125;
  end;
end;
 
begin
  proc(P);{вызывам первую функцию}
  proc(Q);{вызывам вторую функцию}
  readln;
end.

uses crt;
type Tfun=function(x:real):real;
var a,b:real;
    i,n:byte;
    Mtoch,Motv:array [1..10] of real;
 
{$F+}
function F(a:real):real;
begin
    F:=1/(a+sqrt(a+0.3)+exp(-a) +1.7)-a;
end;
{$F-}
 
procedure search_coren(Mtoch,a,b:real; f:Tfun; var x:real);
var fx,fa:real;
begin
      while (b-a)>Mtoch do
       begin
        fa:=F(a);
        x:=(a+b)/2;
        fx:=F(x);
            if fa*fx>0 then a:=x else b:=x;
       end;
end;
 
begin
clrscr;
write('A=');
readln(a);
write('B=');
readln(b);
write('N=');
readln(n);
clrscr;
 
for i:=1 to n do
 begin
    write('E[',i,']=');
    readln(Mtoch[i]);
 end;
 
clrscr;
 
for i:=1 to n do
 begin
    search_coren(Mtoch[i],a,b,F,Motv[i]);
    writeln('',Motv[i]);
 end;
 
readkey
end.

proc(P);{вызывам первую функцию}
  proc(Q);{вызывам вторую функцию}

  proc(@P);{вызывам первую функцию}
  proc(@Q);{вызывам вторую функцию}

var x,y:real;
begin
//ввод x,y
  proc(P(x));{вызывам первую функцию}
  proc(Q(y));{вызывам вторую функцию}
  readln;
end.