Рекурсия

[mishanya6]

program rekyrsiya_1;

{$APPTYPE CONSOLE}

uses
Math;

var x, eps: real;
Function Summa (slag, x, eps:real; i:integer ):real;
begin
if abs(slag)<=eps then
result:=0
else
summa:=slag+summa(slag+power(-1,i+1)*(Power(x,2*i+1)/(4*i*i+1)),x,eps,i+1);
end;
begin
readln(x);
readln(eps);
writeln(summa(1,x,eps,0):5:10);
writeln((1+power(x,2))/2*arctan(-x/2));
readln;
end.

Почему-то зацикливается, помогите пожалуйста!!!

[IT-man]

вызов

writeln(summa);

и ваше обьявление

Summa (slag, x, eps:real; i:integer ):real;

Есть разница?
и тут

summa(slag+power(-1,i+1)*(Power(x,2*i+1)/(4*i*i+1)))

1 параметр а должно быть 3)