Решить уравнение методом касательных (Ньютона) с заданной точностью

Program Lab4;
uses crt;
Const
   Eps=0.0001;
   h=0.25;
Function F(xf:real):real;
  Begin
    F:=3*abs(xf)-3*ln(xf+2)-4;
  End;
Function dF(Xf:Real):Real;
  Begin
    dF:=(3*xf/abs(xf))-(3/xf+2);
  End;
Function ddF(Xf:Real):Real;
  Begin
    ddF:=3/(power((xf+2),2));
  End;
 
procedure m_kas(a,b:Real; Var Xn,dX1:Real);
var
  xp:real;
begin
  if F(b)*ddF(b)>0
    then xn:=a
    else xn:=b;
  dx1:=1;
  while abs(dx1)>EPS do
    begin
      xp:=xn;
      xn:=xp-F(xn)/dF(xn);
      dx1:=xn-xp;
    end;
end;
Var
   alfa,beta,X,dx,
   x1,x2,y1,y2:Real;
Begin
   Write('введите промежуток : '); ReadLn(Alfa,Beta);
   x1:=alfa;
   x2:=x1+h;
   y1:=F(x1);
   While x2<=beta do
      Begin
         y2:=F(x2);
         If y1*y2<=0
            Then
               Begin
                 WriteLn('корень определён на промежуте ( ',x1:0:2,' ; ',x2:0:2,' )');
                 M_Kas(x1,x2,X,dx);
                 WriteLn('X  = ',x1:10:8,' +- ',abs(dx):10:8);
               End;
         If y1*y2=0
            Then
               Begin
                  x2:=x2+h;
                  y2:=F(x2);
               End;
         x1:=x2;
         x2:=x1+h;
         y1:=y2;
      End;
   If X=0
      Then
         WriteLn('на данном промежутке корней нет');
End.