error 207

[gest]

При запуске программы вылетает ошибка 207.Помогите плз отладить прогу:

program metodkasat;
uses crt;
function f(var x:real):real;
begin
f:= 9.23*Ln(x+8.67)+55.03;
end;
function f1(var x:real):real;
begin
f1:=9.23/(x+8.67);
end;
function f2(var x:real):real;
begin
f2:=-9.23/sqr(x+8.67);
end;
var
a,b:real;
e,e1:real;
x0,tmp:real;
x11,x12:real;
z,x6,y:real;
begin
clrscr;
a:=-4.33;
b:=-8.67;
e:=0.0042;
x0:=a;
if f(a)*f(b)>0 then writeln('a or b is incorrect')
else
begin
x11:=x0-f(x0)/f1(x0);
x12:=a-((b-a)*f(a)/f(b)-f(a));
e1:=(x11+x12)/2;
while abs(e1-x11)>e do
begin
a:=x11;
b:=x12;
x11:=a-F(a)/f1(a);
x12:=a-((b-a)*f(a)/(f(b)-f(a)));
e1:=(x11+x12)/2;
end;
writeln('koren:',x11:6:4)
end;
readln
end.