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

program Metod_kasatelnblx;
const e=2.71828;
Eps=0.0001;
var
k:integer;
x,x1,x0,a,b,fx,f1x,f2x,ff:real;
begin
writeln('Уравнение');
writeln('fx=e^x-x^3+3x^2-2x-3.');
writeln('Первая производная');
writeln('f1x=e^x-3x^2+6x-2.');
writeln('Вторая производная');
writeln('f2x=e^x-6x+6.');
writeln('Введите границу отрезка a');
write('a=');read(a);
writeln('Введите границу отрезка b');
write('b=');read(b);
  begin
  ff:=(Exp(b)-(b*b*b)+(3*b*b)-(2*b)-3)*(Exp(b)-(6*b)+6);
  if ff>0 then
  ff:=(Exp(b)-(b*b*b)+(3*b*b)-(2*b)-3)*(Exp(b)-(6*b)+6)
  else
  ff:=(Exp(a)-(a*a*a)+(3*a*a)-(2*a)-3)*(Exp(a)-(6*a)+6);
  writeln('  ff=',ff:2:3);
  end;
     Repeat
     inc(k);
     if k <> 1 then
     x0:=x1;
     begin
     x:=x0-(Exp(x0)-(x0*x0*x0)+(3*x0*x0)-(2*x0)-3)/(Exp(x0)-(3*x0*x0)+(6*x0));
     end;
     x1:=x;
     writeln('k=',k:3);
     writeln('   x= ',x:2:3);
     Until  abs(x-x0) < Eps;
writeln('Корни системы:');
write('  x=',x:2:3);
end.

Var x,a,b,e:real;
    k:integer;
Function f1(x:real):real;
 begin
  f1:=exp(x)-x*x*x+3*x*x-2*x-3;
 end;
Function f2(x:real):real;
 begin
  f2:=exp(x)-2*x*x+6*x-2;
 end;
Procedure Kasat(a,b,e:real);
 begin
 k:=0;
  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);
    k:=k+1;
    Writeln('Iteraciya N',k,' x0=', x:6:4,' f(x0)=',f1(x):6:4);
   end;
 Writeln('Konechniy rezultat:');
 Writeln('x0=',x:6:4,' Iteratsiy: ',k);
 end;
begin
Writeln('Vvedite A');
Readln(a);
Writeln('Vvedite B');
Readln(b);
Writeln('Vvedite tochnost E');
Readln(e);
Kasat(a,b,e);
readln;
end.