Ошибка в методе Ньютона

uses Crt;
var x,a,b,e: real;
function f1(d: real): real;
begin
f1:=(x-2)*(x-2)*2*x-1;
end;
function f2(d:real): real;
begin
f2:=6*x*x-16*x+8;
end;
begin
Clrscr;
a:=0.4;
b:=2;
e:=0.001;
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,' f(x)=',f1(x));
Readln
end.

uses crt;
function f1(x: real): real;
begin
f1:=(x-2)*(x-2)*2*x-1;
end;
function f2(x:real): real;
begin
f2:=6*x*x-16*x+8;
end;
function Newton(a,b,e:real):real;
var x:real;
begin
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;
Newton:=x;
end;
 
var x,x1,x2,dx,x11,x12,eps:real;
    i:integer;
begin
clrscr;
x1:=0;{интервал для поиска корней}
x2:=2;
dx:=0.1;
eps:=0.001;
x:=x1;
i:=0;
while x<=x2 do
 begin
  x11:=x;
  x12:=x+dx;
  if F1(x11)*F1(x12)<0 then
   begin
    i:=i+1;
    writeln('X',i,'=',Newton(x11,x12,eps):8:5);
   end;
  x:=x+dx;
 end;
readln
end.

uses crt;
 var x,a,b,e: real;
 function f1(x: real): real;
 begin
 f1:=ln(2-x)-cos(2*x);
 end;
 function f2(x:real): real;
 begin
 f2:=(-1/2-x)+2*sin(2*x);
 end;
 begin
 clrscr;
 a:=1;
 b:=2;
 e:=0.001;
 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,' f(x)=',f1(x));
 end.

uses crt;
 var x,e: real;
 function f1(x: real): real;
 begin
 f1:=ln(2-x)-cos(2*x);
 end;
 function f2(x:real): real;
 begin
 f2:=(-1/2-x)+2*sin(2*x);
 end;
 begin
 clrscr;
 repeat
 write('Введите первое приближение 1.5<x0<2 x0=');
 readln(x);
 until(x>1.5)and(x<2);
 e:=0.001;
 while abs(f1(x))>e do
 begin
 x:=x-f1(x)/f2(x);
 end;
 writeln ('x=',x,' f(x)=',f1(x));
 end.

y:=-1/sqr(x)+8*sin(x)/cos(x)/sqr(cos(2*x));