Не могу найти ошибку. Сума ряда (Pascal)

[spinogryz_ua]

uses crt;
var x,eps,s,y,st:real;
r,i,f:integer;
begin
writeln('Лабораторна робота №4');
   writeln('початкові дані') ;
   writeln ('ввести х');
   read (x);
   writeln ('ввести eps');
   read (eps);
writeln ('номер','  член ряду','   поточна сума');
s:=0; y:=1; i:=1; f:=2;  st:=sqr(x);
repeat
y:=r*(i+st)/((i+sqrt(i)+1)*f);
s:=s+y;
writeln (i:3,y:12:6,s:12:6);
i:=i+1;
r:=-r;
st:=st*x;
f:=f*(i+1);
until abs(y)<=eps;
writeln ('остаточна сума = ',s:15:10);
end.

Должно выдавать 0,1203737799
а ноно ничего не щитает. Не могу понять в чем дело. Вроде бы все на своих местах...

Заранее спасибо за помощь. =)

[Hacker19_90]

а потому что
надо проверять не весь результат с точночтью
А непосредственно сам инкремент!
В вашем случае f!
Ну при этом он должен правильно определятся!
Короче к гадалке не ходи а ошибка у вас походу
Floating point overflow

[KoliyR]

переменная r - равна нулю соотв, -0 и 0 умножить и разделить на что-то дает 0
определяем ее 1 и вроде все норм, - только вот еще exp слишком низкую не надо, ,
0,001 - нормально