Решить уравнение In (x)-x+1.8=0 с точностью е на отрезке [2;3] методом касательных — Pascal(Паскаль)

uses Crt;
var  x,a,b,e: double;
function f1(z: double): double; {Основная функция}
begin
f1:= ln(z)-z+1.8;
end;
function f2(z:double): double; {Производная от основной функции}
begin
f2:=1/z-1 ;
end;
begin
Clrscr;
a:=2;b:=3;
write('e=');readln(e);
clrscr;
if f1(a)*f2(a)>0 then x:=a
else x:=b;
while abs(f1(x))>e do
   begin
     x:=x-f1(x)/f2(x);
   end;
Writeln (' В интервале от ',a:0:0,' до ',b:0:0,' с погрешностью ',e:0:5);
Writeln ('x=',x:0:5,' f(x)=',f1(x):0:5);
Readln
end.