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

program z1;
uses crt;
function f(var x:real):real;
begin
f:= x*x*x*x-26*x*x*x+131*x*x-226*x+120;
end;
function f1(var x:real):real;
begin
f1:= 4*x*x*x-78*x*x+262*x-226; {первая производная}
end;
function f2(var x:real):real;{вторая производная}
begin
f2:=12*x*x-156*x+262;
end;
var
a,b:real;
e,e1:real;
x0,tmp:real;
x11,x12:real;
z,x6,y:real;
begin
clrscr;
a:=19.5;
b:=21.2;
e:=0.0001;
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 ('Ответ: ',x11:6:2)
end;
readln
end.

function f1(x:real):real; {Основная функция}
begin
f1:=x*x*x*x-26*x*x*x+131*x*x-226*x+120;
end;
function f2(x:real):real; {Производная от основной функции}
begin
f2:=4*x*x*x-78*x*x+262*x-226;
end;
var x,a,b,e:real;
begin
a:=19.5;
b:=21.2;
e:=0.0001;
Writeln ('Корень в интервале от ',a:0:1,' до ',b:0:1,' с погрешностью ',e:0:4);
Writeln('Метод касательных');
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);
   end;
Writeln ('x=',x:0:5,' f(x)=',f1(x):0:5);
 
Writeln('Метод хорд');
repeat
x:=(f1(b)*a-f1(a)*b)/(f1(b)-f1(a));
if abs(f1(x))<=e then
 begin
  writeln('x=',x:0:5,' f(x)=',f1(x):0:5);
  exit;
 end;
if f1(a)*f1(b)>0 then a:=x else b:=x;
until abs((f1(b)*a-f1(a)*b)/f1(b)-f1(a)-x)<=e;
writeln('x=',x:0:5,' f(x)=',f1(x):0:5);
 
end.