Нахождение корней уравнения методом Ньютона

Program N20;
 uses crt;
 var
  x,x1,e:real;
  i:byte;
 begin
  textbackground(black);
 repeat
  clrscr;
  textbackground(red);
  window(5,5,40,15);
  clrscr;
  textcolor(white);
   writeln('vvod x na promezutke [0;1)=');
   readln(x);
  until(x>=0)and(x<1);
  i:=0;
  e:=0.001;
  x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
  while abs(x1-x)>e do
                     begin
                      x:=x1;
                      x1:=Sqrt(1-x)-Cos(Sqrt(1-x))/(-1/2*sqrt(1-x)+sin(sqrt(1-x))*(-1/2)*(sqrt(1-x)));
                      i:=i+1;
                     end;
  textbackground(magenta);
  window(40,20,70,30);
  clrscr;
  textcolor(yellow);
   writeln('pechati x1=',x1:5:4);
   writeln('kolichestvo interachii=',i);
  readln;
 end.

16. until(x>=0)and(x<1);
17. i:=0;

uses crt;
var x,x0,eps,b:real;
    k:integer;
begin
clrscr;
repeat
write('Vvedite nachalnoe priblizenie [0;1) x0=');
readln(x0);
until(x0>=0)and(x0<1);
eps:=0.001;
x:=x0;
k:=0;
repeat
b:=x;
k:=k+1;
x:=b-(sqrt(1-b)-cos(sqrt(1-b)))/(-1/(2*sqrt(1-b))-sin(sqrt(1-b))/(2*sqrt(1-b)));
until abs(x-b)<eps;
write('X=',x:0:5,'  iteracij=',k);
readln
end.