Сумма ряда, Паскаль

[Heming]

Есть след. условие
Условие: Посчитать с точностью до E(0<E<1), каждую внутреннюю сумму, определить кол-во слагаемых, вывести промежуточные результаты


Вот что я сделал, но у меня почему-то иногда проскальзывает что промежуточная сумма при х=2 бывает отрицательной, пжл провертье правильность моих суждений :

Program Lab3;
uses crt;
var
a,s,ss,e:real;
k,x,n:integer;
begin
writeln('|a(k+1)/a(k)|<1 dly lubih k>=1');
writeln('// v lim forme: Lim(|a(k+1)/a(k)|,k-->infinity < 1 => ryd shoditsa pri vseh znachenijah k');
repeat
repeat
write('Vvedite epsilant ot 0 do 1');
readln(e);
until ((e>0) and (e<1));
s:=0;
for x:=1 to 5 do
begin
ss:=0;
k:=1;
a:=x/8;
while abs(a)>=e do
begin
ss:=ss+a;
k:=k+1;
a:=a*(x*(k+1)*(k*k*k+3)/((k+2)*k*((k+1)*(k+1)*(k+1)+3)));
end;
writeln('Prom. suma= ',ss);
s:=s+ss;
end;
writeln('Kilkist dodankiv= ',k);
writeln('Suma ryda= ',ss);
readln;
writeln('Hotite prodolzit (Yes-1/No-0)');
readln(n);
until n=0;
end.