Рекурсивная функция Error 87 - Turbo Pascal

uses crt;
var
   E: double;
{==================================================}
procedure Input(n,i:integer;x:double);
begin
   Write('Input x and n');
   Readln(x);
   Readln(n);
   i:=n+1;
end;
{==================================================}
function Add (i:integer; x,a:double):double;
begin
   {i:=n+1;}
   if i=1 then Add:=x
   else Add:=Add(i-1)*sqr(x)*((2*i-3)/(2*i-1));
end;
{==================================================}
begin
   Input(x,n);
   E:=add(i,x);
   writeln(E);
end;