Решение уравнения методом касательных на отрезке

Const
  a=1;
  b=123.2;
  eps1=0.001;
type
  TF=function(x:real):real;
{***********************************************************}
{Vishislenie kornya yravnenia F1(x)}
{$F+}
function F1(x:real):real;
begin
  F1:=exp(3*ln(x-2))-1-3/x;
end;
function pr1F1(x:real):real;
{1*proizvodnaya}
begin
  pr1F1:=3*sqr(x-2)+3/(sqr(x));
end;
function pr2F1(x:real):real;
{2 proizvodnaya}
begin
  pr2F1:=6*(x-2)-6/(exp(3*ln(x)));
end;
 
procedure root(eps1,a,b:real);
var m,n:real;
    i:integer;
begin
 i:=1;
 if F1(a)*F1(b)>0 then
   writeln('Korney net')
 else
  begin
    if pr1F1(a)*pr2F1(a)<0 then
     begin
       m:=a;
       while F1(n)*F1(n-eps1)>0 do
        begin
          n:=m-F1(m)/pr1F1(m);
          i:=i+1;
        end;
       writeln('Vichisl koren na i-om shage');
       writeln(n:10:4, i:14);
     end
    else
     begin
       m:=b;
       while F1(n)*F1(n+eps1)>0 do
        begin
          n:=m-F1(m)/pr1F1(m);
          i:=i+1;
        end;
       writeln('Vichisl koren na i-om shage');
       writeln(n:10:4, i:14);
     end;
     writeln;
  end;
end;
{osnovnaya chast}
begin
  root(eps1,a,b);
  writeln;
end.