Программа по поиску корней выдает ошибку

Program z(input,output);
const e=0.00001;a1=-0.5; b1=-0.1; a2=-1.82;b2=-1.81;a3=-4.1;b3=-4;
type
    func = function(x:real):real;
{$F+}
function f2(x:real):real;
    begin
        f2:=-1/x;
    end;
{$F-}   
{$F+}
function f3(x:real):real;
    begin
        f3:=-2*(x+1)/3;
    end;
{$F-}   
 
{$F+}
function pf2(x:real):real;
    begin
        pf2:=1/sqr(x);
    end;
{$F-}   
{$F+}
function pf3(x:real):real;
    begin
        pf3:=-2/3;
    end;
{$F-}   
Procedure root(f,g:func;a,b,eps,x:real; pf,pg:func; var fail:text);
var en,fun,fun1:real;
begin
fun:=f(x)-g(x);
fun1:=pf(x)-pg(x);
writeln(fail,x:10:14);
if(abs(eps)>e) then begin {Пока не достигнута точность}
                           x:=x-fun/fun1; {выполнить шаг метода}
                           eps:=abs(x-b); {Новая точность}
                           b:=x; {Значение границы для следующего шага}
                           root(f,g,a,b,eps,x,pf,pg,fail);
                   end
end;
 
var a,b,eps:real;fail:text;
begin
assign(fail,'f:\root_fail.pas');
rewrite(fail);
eps:=abs(a2-b2); {Текущая точность подаваемая на вход процедуре}
writeln(fail);
root(f2,f3,a2,b2,eps,a2,pf2,pf3,fail,x23);
write(fail,'Корень пересечения y2 и y3: ',x23);
close(fail);
end.