Задачка!, Задачка на метод Ньютона Опции

[AssAssIN'KO]

Помогите пожалуйста составить программу к этой задаче:
Составить структурированную программу для нахождения корня уравнения: (корень(1-х))-cos(корень(1-х))=0 на отрезке [0;1) с абсолютной погрешностью Эпсила=10в -3 степени,методом Ньютона.В программе предусмотреть подсчёт и выдачу на печать колличество итераций,необходимых для вычисления значения с заданной точностью.(как я понял точность самому надо задать)
Кто знает как решить помогите плииз...очень надо

[AssAssIN'KO]

ну у меня получилось чтото вроде этого

program Nuton;
uses crt;
const
 Eps=0.0001;
var
a,b,c,z,f1,f2:real;
 begin
 clrscr;
 a:=0;
 b:=1;
 f1:=sqr(1-a)-cos(sqrt(1-a));
 f2:=(-1)/(2*(sqrt(1-a)))+(1/(2*(sqrt(1-a))))*(sin(sqrt(1-a)));
 if f1*f2>0 then c:=a
             else c:=b;
  repeat
  z:=((sqrt(1-c))-(cos(sqrt(1-a)))/((-1)/(2*(sqrt(1-a))))+(1/(2*(sqrt(1-a))))*(sin(sqrt(1-a))));
  c:=c-z;
  k:k+1;
  until abs f(z)<Eps;
  writeln c,k;
  readln
 end