Вычислить сумму ряда 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 даже с калькулятором считать х_х