исправте программу!!

[vadimc]

даны числа e>0 и x.Вычислить с точностью значения функции у .

считать что требуемая точность достигунта если очередное слагаемое по модулю меньше е, все последующие слагаемое можно уже не учитывать.результат сравнить с точным значение заданной функции

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

end;

begin
Writeln('Введите значение числа x<-1');
read(X);
Writeln('Введите значение числa e>0');
read(e1);
Writeln(Arctang(X,e1));
end.
при вводе ЛЮБОГО числа х<-1 выводиться одно и тоже чило

[Abstraction]

1) Чему у Вас равен step при первой проверке условия цикла? Подозреваю, что добрый компилятор его занулил.

2)

считать что требуемая точность достигнута если очередное слагаемое по модулю меньше е, все последующие слагаемые можно уже не учитывать.результат сравнить с точным значение заданной функции

Это бред. 1+1/2+1/3+1/4+...+1/n+... равно 11/6 с точностью 1/2, ага. Убивал бы за такие формулировки заданий.

3) (присмотревшись к коду) А Вы уверены, что считаете то, что надо? step же раз за разом оказывается равен одному и тому же - раз; слагаемое -п/2 отсутствует - два, на (i*2+1) делится вся накопленная сумма, а не слагаемое - три.