Дан числовой ряд и некоторое число e...

[Xe0n]

Помогите пожалуйста с программой, надо к завтрашнему дню просто

Дан числовой ряд и некоторое число e
Найти сумму тех членов ряда, модуль которых больше или равен заданному e.
a(н-ное) = n! / (2n)!

Восклицательный знак если кто не помнит означает факториал.
Я написал, но что-то какую-ту ерунду которая работает не так как нужно...

PHP код:

program lb13;
uses crt;
var c,s:real; n,i,e,b:longint;
begin
clrscr;
writeln('vvedi e');
readln(e);
n:=1; b:=2; s:=0;
for i:=1 to n do
    begin
    n:=n*i;
    b:=b*2*i;
    c:=n/b;
    if abs(c)>=e then s:=s+c;
    write(s);
    end;
readkey;
end. 


Заранее спасибо.

[Sweta]

n:=1; b:=1; s:=0; 
for i:=1 to n do 
    begin 
    n:=n*i; 
    b:=2*b*i;