Ошибка при вычислении..

[CodeExpert]

Доброе утро уже, уважаемые форумчане, помогите найти ошибку:
Задание: Дано вещественное число а, вычислить arctg(a) используя степенной ряд arctg x= x-x^3/3+x^5/5-x^7/7+x^9/9...
входное значение 5 результат - 1.373400766945
но у меня не получается...
Мой код:

program laba7;
uses Crt; //подключаем модуль дополнительный
    
{искусственная функция вычисления арктангенса}
function arct(a:real):real;
const e=0.0001;
var i:integer; //счетчик
    sum,s:real; //сумма и последующий член
    sch:integer; //контроллер
begin
sum:=0; //первоначальное значение
sch:=1;
i:=1; //начальное значение счетчика
repeat
 s :=(exp(ln(a)*i))/i;
 if sch mod 2 = 0 then sum:=sum-s else begin sum:=sum+s;end;
 i:=i+2;
 sch:=sch+1;
until abs( ((exp(ln(a)*(i+1)))/(i+1)) - ((exp(ln(a)*i))/i))<=e;
Writeln(s);
Writeln(sum);
arct:=sum;
end;

var ax:real; //входное значение
    res:real; //результат
begin
Writeln('Введите исходное значение!');
Readln(ax); 
Writeln('Вычисление с помощью станд.функции');
res:=arctan(ax);
Writeln('Результат = ',res);
Writeln('Вычисление с помощью искусств.функции');
res:=arct(ax);
Writeln('Результат = ',res);
readln;
end.

помогите пожалуйста исправить...!)

[Carbon]

Кто так степени накапливать учил????

[CodeExpert]

Не знаю, нас так учили в институте, помогите исправить пожалуйст..

[Google2010]

uses crt;
var dx,x,e,y,t:real;
i:integer;
begin
clrscr;
write('x=');readln(x);
write('e=');readln(e);
dx:=x;
y:=0;
i:=0;
t:=1/(2*i+1);
while abs(dx*t)>=e do
    begin
       y:=y+dx*t;
       inc(i);
       dx:=-dx*x*x;
       t:=1/(2*i+1);
    end;
writeln('Rezultat razlozenia=',y:0:5);
writeln('Rezultat vychislenia=',arctan(x):0:5);
writeln('Chislo iteracij=',i);
readln
end.

2CodeExpert ник не жмет?

[CodeExpert]

прога виснет, а при e=0.0001 выдает переполнение вещественного типа..(

[IT-man]

Потому что при х=5 данная точность никогда достигнута не будет.

[Google2010]

It-man +1024

никогда достигнута не будет.

потому что числитель увеличивается в 5 раз, а знаменатель только на 2

[Carbon]

Область сходимости ряда: [ -1; 1 ]