Вычислить сумму 1-1/2+1/3-…+(-1)^n+1*1/n- Pascal(Паскаль)

Uses
  CRT;

Var
  i, n, l: integer;
  sum: real;

begin
  ClrScr;
  write('N: ');
  readln(n);
  l := 1;
  for i := 1 to n do
  begin
    sum := sum + (l * (1 / i));
    l := -l;
  end;
  write('Sum:=', sum);
  readkey

end.