Найти сумму ряда, оканчивающегося N-ым членом. N вводится с клавиатуры - Pascal

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

1.Найти сумму ряда, оканчивающегося N-ым членом. N вводится с клавиатуры. S=-2[1-x/1+x + 1/3(1-x/1+x)^3+...] если 0<x<бесконечность. 2. S= ln(2x)+1/2*2x^2 - 1*3/2*4*4x^4 + 1*3*5/2*4*6*6x^6 - ... если x>1 Помогите, пожалуйста.

Решение задачи: «Найти сумму ряда, оканчивающегося N-ым членом. N вводится с клавиатуры»

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

var n,i:integer;
    x,z,t,s:real;
begin
write('n=');
readln(n);
repeat
write('x>0 x=');
readln(x);
until x>0;
z:=(1-x)/(1+x);
t:=z;
s:=t;
for i:=2 to n do
 begin
  t:=t*z*z;
  s:=s+t/(2*i-1);
 end;
s:=-2*s;
write('S=',s:0:4);
end.

Объяснение кода листинга программы

Переменная n и i инициализируются целочисленными значениями.
Переменные x, z, t и s инициализируются значениями типа real.
В цикле повторяется до тех пор, пока x не станет положительным числом.
Переменная z вычисляется как (1-x)/(1+x).
Переменная t инициализируется значением переменной z.
Переменная s инициализируется суммой t и (1/2)(t/(2i-1)).
В цикле for переменной i от 2 до n происходит следующее:
- Переменная t вычисляется как tzz.
- Переменная s увеличивается на t/(2*i-1).
Переменная s затем вычисляется как -2*s.
Значение переменной s выводится на экран в формате 0.000.
Программа завершается.