Найти сумму ряда с заданной точностью

Program Summa;
Uses Crt;
vari,n:word; s:extended;
const t=0.001;
functionfac(n:word):longword;
Var i:word; x:longword;
Begin
x:=1;
for i:=2 to n do
x:=x*i;
fac:=x;
End;
BEGIN
s:=0;
n:=0;
        while (s-round(s))/s<=t do
begin
inc(n);
s:=s+(1+n)/(fac(n));
continue;
end;
writeln('Summa= ',s:5:3);
writeln('Chisloprohodov ', n);
readln;
END.

uses Crt;
const t=0.001;
var i:word;
    f,s:extended;
begin
clrscr;
i:=1;
f:=1;
s:=2;
while (1+i)*f>t do
 begin
  inc(i);
  f:=f/i;
  s:=s+(1+i)*f;
 end;
writeln('Summa= ',s:0:3);
writeln('Chisloprohodov ', i);
readln
end.

i:=1;//первый член ряда
f:=1;//1!
s:=2;//первая сумма (1+1)/1
while (1+i)*f>t do//пока очередной член ряда больше точности
 begin
  inc(i);//увеличиваем номер
  f:=f/i;//делим на него 1/1/2/3..=1/i!
  s:=s+(1+i)*f;//(i+1) умножаем на обратный факториал и прибавляем
 end;

const e = 0.001;
var fp, f, a, s: real;
    n: integer;
begin
  fp := 1; //1/0!
  f := 1; //1/1!
  a := fp + f;
  s := a;
  n := 1;
  while a >= e do
    begin
      inc(n);
      fp := f;
      f := f / n;
      a := fp + f;
      s := s + a
    end;
  write('S = ', s:0:3, ',  n = ', n);
  readln
end.