Тут тебе нужен бесконечный цикл с выходом в тот момент, когда очередное слагаемое не будет превышать указанное e.
Код:
var
k : Integer;
S, d : Double;
begin
S := 0;
k := 0;
Repeat
d := f(k,x,a);
S := S + d;
Until d < e;
end;
Кажется так. f() - твоя формула.