Метод итераций в паскале или девушки не сильны в программировании.

[Dialema]

Господа, спасайте, на вас одна надежда.
Нужна программа в паскале. Метод итерации.
х=1/x^2+1
Водится начальное приближение, то есть сам х
Далее ответ подставляется в эту же "формулу" и т.д.
Количество шагов - 100.
Если результаты двух последовательных приближений меньше E(а это 0,01), то итерационный процесс прекращается.

[GetMax]

Begin
   write('Enter first approximation: '); 
  readln(z); {первое приближённое значение}
     x:=1/Sqr(z)+1;
     itt:=0;
     repeat
           z:=x;
           x:=1/Sqr(z)+1;
           inc(itt);
     until abs(x-z)<eps; {пока не будет достигнута нужная точность}
     writeln('Root: ',x:1:5, ' (',itt,' itterations)');
End.