Вычислить сумму бесконечного сходящегося ряда

Program Lab7;
uses crt;
var i,j,n : integer;
s,q,e,x : real;
begin clrscr;
writeln('Введите числа |х|>1 и эпслион');
readln(x,e);
i:=0;
q:=1;
s:=0;
n:=1;
while (abs(q)>=e) do
begin
for j:=0 to i do begin
  if j=0 then begin
  n:=1;
end
  else begin 
  n:=n*j;
  end;
end;
q:=power(-1,i+1)/(2*i+1)*power(x,2*i+1);
i:=i+1;
if (abs(q)>=e) then begin
  s:=s+q;
  n:=1;
  end
else break;
end;
  writeln('Сумма ряда равна  ',s);
  writeln('Число членов ряда равна  ',i-1);
end.

var 
  s, curr, X, eps : real;
  n : integer;
begin
  write('X = '); readln(X);
  write('eps = '); readln(eps);
  
  n := 0;
  s := 0;
  curr := -1 / X; // при n = 0
  repeat
    s := s + curr;
    n := n + 1;
    curr := - curr * (2*n - 1) / (2*n + 1) / sqr(X); // домножаем на полученное выражение
  until abs(curr) < eps;
  
  writeln('s = ', s);
  writeln('test:', ArcTan(x)-Pi/2*Sign(X));
end.

Program Lab7;
uses crt;
var n : integer;
    s,q,e,x : real;
begin
repeat
writeln('Введите |х|>1 x=');
read(x);
until abs(x)>1;
repeat
writeln('Введите 0<e<1 e=');;
read(e);
until (e>0)and(e<1);
n:=0;
q:=-1/x;;
s:=q;
while (abs(q)/(2*n+1)>=e) do
 begin
  n:=n+1;
  q:=-q/(x*x);
  s:=s+q/(2*n+1);
 end;
writeln('Сумма ряда равна=',s:0:5);
writeln('Значение функции=',arctan(x)-pi/2:0:5);
end.