Паскаль, цикл(помогите найти ошибку)

[MsJane]

Вычислить сумму 1-1/2+1/3-...+((-1)^(n+1))*1/n. Условную инструкцию и операцию возведения в степень не использовать(вот и еще вопрос что это значит) =)
var n,i:integer;
s:real;
begin
Write('n=');
readln(n);
i:=1; s:=1;
repeat
if i mod 2 = 0 then
s:=s+1/((-1)*n)
else
s:=s+1/((1)*n);
i:=i+1;
until (i>=n);
writeln (s:2:2);
readln;
end.

[eoln]

var k,n,i:integer;
s:real;
begin
Write('n=');
readln(n);
i:=1; s:=0; k:=1;
repeat
s:=s+1/(k*i);
i:=i+1;
k:=-k
until (i>n);
writeln (s:2:2);
readln;
end.

Это значит без if case и т.п.

[MsJane]

спасибо большое)