Паскаль(задача)

[Roll1n]

Вычислить сумму бесконечного ряда для заданного Eps:
S=1+x/1!+x^2/2!+x^3/3!+...x^k/k!+...
с точностью до |a(с индексом i)-a(с индексом i-1)<=Eps

Program lab3;
uses crt;
Var fact: longint;
i:integer;
x,k:real;
function S(x,k:real):real;
begin
i:=i+1;
for i:=1 to 10 do
s:=1+exp(x*ln(i))/fact*(i)

.

вот мой набросок
Не знаю как правильно написать условие,и разрывы ... между суммой.
Помогите доделать

[Greblin]

function s(x, eps: real): real;
var res, last: real;
    k: integer;
begin
res := 1;
k := 1;
last := 1;
repeat
  last := last * x / k;
  res := res + last;
  k := k + 1;
until abs(last) <= eps;
s := res;
end;

Забавно, Ваш ряд ни что иное как экспонента, и Вы используете для его вычисления функцию exp()