Вычисления с заданной точностью

[weech]

Здравствуйте. Имеется вот такое задание: http://i51.fastpic.ru/big/2012/1225/...154a753d0b.jpg (14). Требуется посчитать его с точностью до eps и вывести разницу между моим значением и значением, вычисленным паскалем. По всей видимости, считает неправильно, подскажите, пожалуйста, что подправить\добавить.

uses crt;
const eps=0.0001;
type Sup=1..1000000;
var
sum,tg,x,ch,zn:real;
k:Sup;
begin
writeln('Введите Х:');
readln(x);
k:=1;
ch:=eps*2;
sum:=0;
while abs(ch)>eps do
      begin
      zn:=sqr(2*k-1)-x;
      ch:=1/zn;
      sum:=sum+ch;
      inc(k);
      end;
tg:=(4*x*sum)/pi;
end.

[weech]

Ап 10символов

Ап-ап-ап...

[Abstraction]

while abs(ch)>eps do

Кто Вам сказал, что это - подсчёт суммы ряда с точностью eps?! Найдите этого человека и передайте ему, что он глубоко неправ. Особенно как раз в случае вот такого ряда, у которого члены не всегда убывают.

[weech]

Спасибо, исправил, заработало.