подпрограммы с параметрами процедурного типа

[stargirl]

Протабулировать функции f(x,y)=ln(x)-x+y и g(x,y)=exp(x)-y*sqr(x) для 1<=x<=4 с шагом 0.5 и 1<=y<=3 с шагом 1.

[maladoy]

program rat;
uses crt;
type func = function(var a,b:real):real;
 var x1,y1:real;
procedure proc (var f1,g1:func);
var i,j:integer;
    x,resf,resg,y:real;
begin
  for j:=1 to 3 do begin
	for i:=2 to 4 do begin
	  x:=i*0.5;
          y:=j;
	  resf:=f1(x,y);
	  resg:=g1(x,y);
	  writeln('f(',x:3:2,',',y:3:2,')=',resf:6:4);
	  writeln('g(',x:3:2,',',y:3:2,')=',resg:6:4);
	end;
  end;
end;
 function g(var q,k:real):real; far;
 begin
 g:=exp(q)-k*sqr(q);
 end;
 function f(var q,k:real):real; far;
 begin
 f:=ln(q)-q+k;
 end;

begin
 proc(g,f);
 readln;
end.

как то так

[stargirl]

полный бред...