Разработка алгоритма для решения нелинейного уравнения методом хорд(метод Ньютона)

const a=0;
      b=10;
      eps=0.015;
function f(x: real): real;
begin
f:=0.4*cos(3*x)+0.2*sin(8*x)-0.4;
end;
function Chord(x,y:real): real;
begin
while abs(x-y)>eps do
 begin
  x:=y-(y-x)*f(y)/(f(y)-f(x));
  y:=x+(x-y)*f(x)/(f(x)-f(y));
 end;
Chord:=y;
end;
var x,dx,x11,x12: real;
    n,i: integer;
begin
dx:=0.1; {идем по интервалу с шагом 0.1}
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then {если знаки функции разные на концах отрезка}
   begin
    i:=i+1;
    writeln('  x',i,'=',Chord(x11,x12):8:5);{уточняем корень}
   end;
  x:=x+dx;
 end;
 
end.

const a=0;
      b=10;
      eps=0.015;
function f(x: real): real;
begin
f:=0.4*cos(3*x)+0.2*sin(8*x)-0.4;
end;
function f1(x:real):real; {1 производная}
begin
f1:=(2*x*exp(-x)-6*sin(3*x)+8*cos(8*x)+2*exp(-x))/5
end;
function newton(x:real):real;{функция уточнения корня методом Ньютона}
var b:real;
begin
repeat
b:=x;
x:=b-F(b)/F1(b);
until abs(x-b)<eps;
newton:=x;
end;
var x,dx,x11,x12: real;
    n,i: integer;
begin
dx:=0.1; {идем по интервалу с шагом 0.1}
x:=a;
i:=0;
while x<=b do
 begin
  x11:=x;
  x12:=x+dx;
  if F(x11)*F(x12)<0 then {если знаки функции разные на концах отрезка}
   begin
    i:=i+1;
    writeln('  x',i,'=',newton((x11+x12)/2):8:5);{уточняем корень}
   end;
  x:=x+dx;
 end;
 
end.