Здравствуйте!Пожалуйста посчитайте пожалуйста: вычислить сумму бесконечного ряда с заданной погрешностью E=0,001

var x,e,a,s:real; i,f,z:integer;
begin
readln(e);
x:=1.5;
i:=0;
f:=1;
s:=0;
z:=1;
a:=1;
while abs(a)>e do
 begin
 i:=i+1;
 f:=f*i;
 z:=-z;
 a:=z*exp(x-i)/f;
 s:=s+a;
 end;
writeln('s = ',s:6:3);
end.

Пример:
0.001
s = -1.379