Вывод рекурентной формулы - Pascal

Формулировка задачи:

Для заданного одномерного массива X cоставить алгоритм и программу нахождения суммы ряда с заданной точностью E. Использовать рекуррентные соотношения при вычислении очередного элемента ряда. Для приведенных ниже рядов сходимость доказана при |X|<1.

                    Листинг программы
                
 
                        
                          
                    
Uses CRT;
VAR
 i,j:Integer;
 A,Eps:Real;
 x,F,s:array[1..100] of real;
 
Begin
clrscr;
x[1]:=-0.95;
x[2]:=-0.5;
x[3]:=0.1;
x[4]:=0.5;
x[5]:=0.95;
for j:=1 to 5 do
F[j]:=4*sqrt(sqrt(1+x[j]))-4;
Eps:=0.01;
writeln('Точность E=:  ',Eps);
writeln;
for j:=1 to 5 do
begin
 i:=0;
 A:=-1;
 S[j]:=0;
 Repeat
  Inc(i);
  A:=-A*
  S[j]:=S[j]+A;
 Until Abs(A)<Eps;
 end;
  for j:=1 to 5 do
  begin
  Writeln('N  X          S(x)      K        F(x)    Точность');
  writeln(j,'   ',x[j]:0:5,'    ',S[j]:0:5,'    ',i,'     ',F[j]:0:5,'      ',(S[j]-F[j]):0:5);
 end;
End.

помощь требуется в написании этой строки

                    Листинг программы

(Ссылка на сторонний ресурс удалена) ~~по ссылке -~~ ряд и контрольная формула:

Решение задачи: «Вывод рекурентной формулы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
const
    eps: Single = 0.0001;
var
    sum, si, x: Double;
    i: Word;
begin
    repeat
        Write('Input x='); ReadLn(x);
    until (Abs(x) < 1);
    sum := 0; si := x; i := 1;
    while (Abs(si) >= eps) do
    begin
        sum := sum + si;
        Inc(i);
        si := -si * x * (4 * i - 5) / 4 / i;
    end;
    WriteLn('sum=', sum:0:4);
    Write('  f=', (4 * Sqrt(Sqrt(1 + x)) - 4):0:4);
end.