хеллп. Найти сумму ряда с заданной точностью. in(2)=s=1-1/2+1/3-1/4+... в паскале плиз

Знакопеременный ряд!
S: 1/1 - 1/2 + 1/3 - 1/4 +..+(-1)^(n+1)* 1/n.

summa:=0;
sign:=-1;
readln(N);
for i:=1 to n do begin
sign:=sign*(-1);
sum:=sign*1/n;
summa:=summa +sum;
end;