Арифметическое выражение (Цикл for)

program sum;
 
var i, j, n: integer;
    a, x, y, s: double;
 
begin
  repeat //ввод n
    write('n = ');
    readln(n);
    if n < 1 then writeln('n too small, reenter.')
  until n >= 1;
  write('x = '); //ввод x
  readln(x);
  a := (-1) * x / 2; //вычисление a[1]
  s := a; //вычисление частичной суммы s[1]
  for i := 2 to n do //первые уже вычислили, вычисляем от 2 до n
    begin //замечу, что здесь i = k + 1
      y := 1;
      for j := 1 to 2 * i - 2 do y := y * x; //вычисляем текущий y
      a := (-1) * a * y / i / (i + 1); //вычисляем текущее a
      s := s + a //вычисляем текущую сумму
    end;
  writeln('s = ', s); //выводим сумму на дисплей
  writeln('Press <Enter>');
  readln //ждём нажатия <Enter> перед закрытием программы
end.