Вычислить сумму ряда 1 - 1/2 +1/3 - +1/999 - 1/1000 справа – налево, в паскале

Var x, y: Real;
    i: integer;
begin
     for i := 1000 downto 1 do
     begin
          if (i mod 2 = 0) then y := -1 * i
             else y := i;
          writeln('1/', i);
         x := x + 1 / y;
     end;
     writeln('> ', x);
end.

А вручную это пришлось бы минут 30 даже с калькулятором считать х_х