Решить нелинейное уравнение

[VoltZZZ]

Здравствуйте. Помогите, пожалуйста, решить уравнение в Turbo Pascal методом Ньютона.
x*x*cos(2*x)=-1

[gaw4]

АВС

Program MH;
Var
x1, x2,a, b,  eps :real;
k:integer;

Function f(x: real) : real;
 begin
f := x*x*cos(2*x)+1;
End;

Function DF(x:real) : real;
begin
 DF := 2*x*cos(2*x)-2*x*x*sin(2*x);
End ;

begin
{writeln('a');read (a);
writeln('b');read (b);
writeln('e');read (e);}

a:=0;b:=2;eps:=0.0001;
x2 := (b + a) / 2;
k:=0;
 repeat
 x1 := x2 ;
  x2 := x1 - (f(x1) / DF(x1));
k:=k+1;
 until (Abs(x2 - x1) < 2 * eps);
 writeln('k = ',k,'    x =  ',(x1 + x2) / 2 );

End.

корень не 1, надо уточнять