помогите исправить ошибку

uses crt;
const epsilon=10;
{$f+}
type func=function(x:real):real;
var z,y:real;
function f1(x:real):real;
var a:real;
begin
  f1:=ln(sqr(x)+2*x);
end;
function f2(x:real):real;
var
a:real;
begin
a:=5;
f2:=x*sin(3*x)+cos(3*x);
end;
 
Function lim(f:func; x:real;exp:real) : real;
 
var
    y1,y2,x2,x1:real; i,p:longint;
begin
    i:=1; p:=1; y1:=f(x+10);
x2:=1;
x1:=x;
repeat
 
         y2 := y1;
         p := p*(-1);
         x1:=p/i+x;
         y1:=(f(x2)-f(x1))/(x2-x1);
         x2:=x1;
         i:=i+1;
 
until       abs(y1-y2)< exp;
         lim := y2;
      end;
 
Function lim2(f:func; a:real;exp:real) : real;
 
var
    y1,y2,x1,x2:real; i,p:longint;
begin
    i:=1; p:=-1; y1:=f(a+10);
x1:=1;
x2:=2;
repeat
         y2 := y1;
         p := p*(-1);
         x1:=p/i+a;
         y1:=(lim(f,a,exp)-lim(f,a,exp))/(F(x2)-F(x1));
         x2:=x1;
         i:=i+1;
until       abs(y1-y2)< exp;
         lim2 := y2;
      end;
  var s,q:real;
 
      begin
      clrscr;
      z:=lim(f1,10,epsilon);
      y:=lim(f2,5,epsilon);
      s:=lim2(f1,0,epsilon);
      q:=lim2(f2,0,epsilon);
      writeln('proizvodnaya 1 func= ',z:0:5,' proizvodnaya 2 func=  ',y:0:5);
      writeln('2 proizvodnaya 1 func = ',s:0:5,' 2 proizvodnaya 2 func= ',q:0:5);
     end.