Бесконечная последовательность .Pascal ABC

[vadimc]

помогите пожалуйста решить программу или хотябы подсказать как делать!

[Mad_Cat]

var
X,e1:real;
function ArcTang(X,e:real):real;
var
i:integer;
sum,Step:real;
begin
Step:=X;
sum:=1;
i:=1;
while abs(step/(i*2+1))>=e do
begin
step:=step*sqr(X)*-1;
sum:=sum+step/(i*2+1);
inc(i);
end;
Arctang:=sum;

end;

begin
Writeln('Введите значение числа |x|<1');
read(X);
Writeln('Введите  значение числa e>0');
read(e1);
Writeln(Arctang(X,e1));
end.

при x<-1, кстати ряд не сойдется т.к. область сходимости |x|<1;

[Abstraction]

1) Оценить (аналитически) хвост последовательности от n-ного члена по сравнению с этим самым членом (с условием x<-1 делать это достаточно кисло, лично у меня на бумажке за пару минут не получилось; более того, там, по-моему, равномерного по x условия вообще не получается).
2) На основании этого, вывести (аналитически), какому условию должен удовлетворять очередной член суммы, чтобы весь хвост за ним был заведомо меньше е.
3) Написать программу, которая вычисляет очередные члены, прибавляет их к результату и проверяет условие из пункта 2.