Найти сумму тех членов ряда, модуль которых больше или равен заданному ε

Program p2;
var n:integer;
     an:real;
function Factorial (x:integer):integer;
var i,r:integer;      
begin
        r:=1;
        for i:=2 to x do
            r:=r*x;
        Factorial:=r;  
end;
begin
       readln(n);
       an:=Factorial(n)/Factorial(2*n);
       writeln(an);
end.

Program p2;
var n:integer;
     an:real;
function Factorial (x:integer):integer;
var i,r:integer;      
begin
        r:=1;
        for i:=2 to x do
            r:=r*x;
        Factorial:=r;  
end;
fuction Rad (e:real):real;
var a,s:integer;
begin
        s:=0;
        n:=1; 
        repeat
                a:=Factorial(n)/Factorial(/2*n);
                s:=s+a;
                n:=n+1;    
        until a>=e;
        rad:=s;        
end;
begin
       readln(e);
       writeln(rad(e)); 
end.

uses crt;
var e,s,t:real;
    n:integer;
begin
clrscr;
repeat
write('Введите точность (0..0.25) e=');
readln(e);
until(e>0)and(e<0.25);
s:=0;
t:=1/4;
n:=1;
while t>=e do
 begin
  s:=s+t;
  n:=n+1;
  t:=1/((3*n-2)*(3*n+1));
 end;
write('S=',s:0:6,'  t=',t:0:6);
readln
end.

uses crt;
var e,s,t:real;
    n:integer;
begin
clrscr;
repeat
write('Введите точность (0..1) e=');
readln(e);
until(e>0)and(e<1);
s:=0;
t:=1;
n:=0;
while t>=e do
 begin
  n:=n+1;
  t:=t*n/(2*n*(2*n-1));
  s:=s+t;
 end;
write('S=',s:0:6,'  t=',t:0:6);
readln
end.