Вычислить сумму в Паскале

Var    S,F:real;    i,j:integer; Begin S:=0; Write('N = ');ReadLn(i); For i:=1 to i do     Begin     F:=1;     For j:= 1 to i do         F:=F*j;     S:=S+1/F;     End; WriteLn('S = ',S); End.