Найти корни уравнения

{Решить уравнение 2x^3-3x^2-12x-5=0 методом хорд и касательных
с точностью 0,0001, если выяснили графически, что корени уравнения в [-2;-1],[-1;0],[3;4]}
const e=0.01;
function f(var x:real):real;
begin
f:= 2*x*x*x-3*x*x-12*x-5;
end;
function f1(var x:real):real;
begin
f1:= 6*x*x-6*x-12; {первая производная}
end;
function f2(var x:real):real;{вторая производная}
begin
f2:=12*x-6;
end;
procedure Korni(a,b:real;k:byte);
var e1:real;
    x0,tmp:real;
    x11,x12:real;
begin
x0:=a;
if f(a)*f(b)>0 then writeln('a or b is incorrect')
else
 begin
  x11:=x0-f(x0)/f1(x0);
  x12:=a-((b-a)*f(a)/(f(b)-f(a)));
  e1:=(x11+x12)/2;
  while  abs(e1-x11)>e do
    begin
     a:=x11;
     b:=x12;
     x11:= a-F(a)/f1(a);
     x12:= a-((b-a)*f(a)/(f(b)-f(a)));
     e1:=(x11+x12)/2;
    end;
  writeln ('x',k,'=',x11:5:2);
 end;
end;
begin
Korni(-2,-1,1);
Korni(-0.9,0,2);
Korni(3,4,3);
readln
end.