Рекурсия. Не корректно работает прога

[Driver_09]

Задача:
Используя оператор цикла, вычислить с заданной точностью ε приближенное значение
функции, указав количество элементов в вычисленной сумме, с использованием
рекуррентных формул, скобочных форм и/или дополнительных переменных по формуле S.
При составление программы считать, что точность достигнута, если |an |<ε .

Это мой вариант:


Код программы:

uses
SysUtils;

var sum,an,x:real;n:integer;
begin
write('Vvedite X:');
readln(x);
sum:=0;
an:=1;
n:=0;
while (abs(an)>0.0001) do
begin
sum:=sum+an;
n:=n+1;
an:=an*((-x*(n+2))/(n+1));
end;
writeln('Summa ',n,' elementov=',sum:0:4);
readln;
end.

Вот в этом коде почему-то работает тока при х меньше 1.
больше не работает... Может где-то ошибка, рекуррентную формулу вроде правильно посчитал(