Найти корни уравнения комбинированным методом хорд и касательных

Uses crt;
var a,b:real;
   e,e1:real;
      x0,x1,x2:real;
       i,n,k:integer;
 
function f(var x:real):real;
begin
f:=x*x*x*x+5*x*x*x+2*x*x+5*x+1;            //???????
end;
 
function f1(var x:real):real; //?????? ???????????
begin
f1:=4*x*x*x+15*x*x+4*x+5;
end;
 
function f2(var x:real):real; //?????? ???????????
begin
f2:=12*x*x+30*x+4;
end;
 
begin
clrscr;
// ?????????? ???????? ?????
// ?1?(0,2)   x2?(2,5)
 
 write('vvedi levuyu granicu  '); readln(a);
 write('vvedi pravuyu granicu  '); readln(b);
 write('vvedi eps '); readln(e);
 k:=0;
  if f(a)*f2(a)>0 then x0:=a else x0:=b;
 
     x1:=x0-f(x0)/f1(x0);
     x2:=a-((b-a)*f(a)/(f(b)-f(a)));
     e1:=(x1+x2)/2;
      while  abs(e1-x1)>e do
        begin
         a:=x1;
         b:=x2;
         x1:= a-f(a)/f1(a);
         x2:= a-((b-a)*f(a)/(f(b)-f(a)));
         e1:=(x1+x2)/2;
         inc(k);
         writeln(k,'    ',x1:10:8);
        end;
writeln ( 'x=',x1:10:8);
 
readln
end.