С погрешностью 0.001 уточнить по методу Ньютона корень уравнения ln(x) – x 1. 8 = 0 на отрезке [2; 3]

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label4: TLabel;
Label5: TLabel;
Edit2: TEdit;
Label6: TLabel;
Edit3: TEdit;
Edit4: TEdit;
Label7: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
function f(x:real):real;
begin
f:=ln(x)-x+1,8;
end;
function f1(x:real):real;
begin
f1:=1/x-1;
end;
function f2(x:real):real;
begin
f2:=-1/sqr(x);
end;
var a,b,x,y,e:real;
begin
a:=strtofloat(edit1.Text);
b:= strtofloat(edit2.Text);
eps:=strtofloat(edit3.Text);
if f(a)*f2(a)>=0 then x:=a else x:=b; {Выбор начальной точки приближения}
repeat
y:=f(x)/f1(x);
x:=x-y;
until abs(y)<=e;
edit4.text:='x = '+floattostrf(x,fffixed, 10,8);
end;
end.
end.