Посчитать сумму n слагаемых

Sum:=0; a:=x;
for i:=0 или 1 do begin
 
Sum:=S+a;
a:=a*<...> end;

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Math;
 
var
        x: real;
  AppxSum: real; //приближенное значение суммы ряда
    Exact: real; //точное значение функции
    Delta: real; //разница между точным и приближенным значением
     n, i: integer;
        e: real;
  CurElem: real;
  SumAbsE: real; //сумма для точности e
SumAbsEDescendent: real;//сумма для точности e*10
     t,p:integer;//переменные для вычисления двойного факториала
      N1, Count, k, Count10:integer;
 
label
 UntilXisCorrect, Menu;
 
//////////////////////////////////////////////////////////////
 
function
 
 DoubleFact(N1:integer):integer; //функция вычисления двойного факториала
   begin
   if odd(N1)then//если нечетное
 
    begin
     t:=1;
     for p:=1 to (N1 div 2)+1 do //от 1 до середины
     t:=t*(2*p-1);//умножаем все нечетные числа
    end
 
   else if not odd(N1) then//если четное
 
    begin
     t:=1;
     for p:=1 to N1 div 2 do//от 1 до середины
     t:=t*2*p;//умножаем все четные числа
    end;
 
    DoubleFact:=t;
 
end;
 
Begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  writeln(#10,#10'Введите значение х (|x|<1):');
  readln(x);
 
   UntilXisCorrect:
   if (x<=(-1)) or (x>=(1)) then
   begin
    writeln(#10,#10'Некорректное значение х');
    writeln(#10'Попробуйте еще раз');
    x := 0;
    readln(x);
    goto UntilXisCorrect;
   end
 
                      else
 
                       begin
 
                        writeln('Введите количество слагаемых для подсчета');
                        readln(n);
                        AppxSum:=0;
 
                         if n=1 then AppxSum:=x else
 
                                 begin
 
                                  for i:=1 to n-1 do // нулевой член - x
 
                                   begin
 
                                    N1 := i;
                                    CurElem := (DoubleFact(2*N1-1)/DoubleFact(2*N1))*(exp((2*i+1)*ln(x)))/(2*i+1);
                                    AppxSum := AppxSum + CurElem; //накопление суммы элементов
 
                                   end;
 
                                  AppxSum := AppxSum + x;
 
                                 end;
 
                                  Exact := ArcSin(x);
                                  Delta := abs(Exact - AppxSum);
 
                                  writeln(#10'      Точное значение функции = ',Exact:20:9);
                                  writeln('Приближенное значение функции = ',AppxSum:20:9);
                                  writeln(#10'Разница между точным и приближенным значением = ',Delta:20:9);
                                  readln;
                                  
 
                       end;
 
End.

uses crt;
var t,s,x:real;
    n,k:integer;
Begin
clrscr;
write('Количество слагаемых n=');
readln(n);
repeat
write('Введите значение |x|<1 x=');
readln(x);
until abs(x)<1;
s:=x;//начальная сумма
t:=x;//нулевой член ряда
for k:=1 to n do
 begin
  t:=t*x*x*sqr(2*k-1)/(2*k*(2*k+1));//очередной член ряда
  s:=s+t;//сумма
 end;
writeln('При х=',x:0:2);
writeln('Сумма=',s:0:5);
writeln('Аналитически=',arctan(x/sqrt(1-x*x)):0:5);
readln
end.