Решить уравнение методом Ньютона (касательных)

uses crt;
function F(x:real):real;
begin
F:=x*x*x-2*x-13;{функция}
end;
function F1(x:real):real;
begin
F1:=2*x*x-x;{{1 производная}
end;
var x,eps,b:real;
begin
clrscr;
repeat
write('Vvedite nachalnoe priblizenie [2;3] x=');
readln(x);
until(x>=2)and(x<=3);
eps:=0.0001;
repeat
b:=x;
x:=b-F(b)/F1(b);
until abs(x-b)<eps;
write('X=',x:0:5);
readln
end.