рекурсивная формула

uses crt;
const e=1E-3;
      n=5;
var y:array[1..n] of real;
    a,b,h:real;
 
Function Step(i:integer;j:real):real;far;
 var S:real; k:integer;
 begin
  S:=j;
  for k:=1 to i do
   S:=S*j;
  Step:=S;
 end;
 
Function F(x:real):real;far;
 var S,u:real;
     r:integer;
 begin
  S:=x;
  r:=0;
  while abs(u)>e do
   begin
    u:=(Step(r,(-1))*Step(r+1,x))/(r+1);
    S:=S+u;
    r:=r+1;
   end;
  F:=S;
 end;
 
Procedure Massiv(a,b,h:real);
 var x:real; i:integer;
  begin
   {$R-}
   x:=a;
   for i:=1 to n do
    begin
     y[i]:=F(x);
     x:=x+h;
    end;
 end;
 
Procedure Show(a,b,h:real);
 var x:real; i:integer;
 begin
  x:=a;
  for i:=1 to n do
   begin
    writeln(x:7:5,' ',F(x):7:5);
    x:=x+h;
   end;
 end;
 
begin
 clrscr;
 Massiv(-1,1,0.5);
 Show(-1,1,0.5);
 readln;
end.

var n,d,mul,cd:integer;
    x,xn,xk,dx,e,el,x_n,sum:real;
    s:string;
begin
   write('Введите через пробел Хнач Хкон dX: ');
   readln(xn,xk,dx);
   e:=1E-15;
   writeln(char(10),'  X          Ряд        N       Фукция');
   for n:=1 to 42 do write('_');
   writeln;
   x:=xn;
   while x<=xk do
   begin
      str(x,s);
      val(s,x,cd);
      if(-1<x)and(x<=1)then
      begin
         x_n:=x;
         d:=1;
         mul:=1;
         sum:=0;
         n:=0;
         repeat
            el:=mul*x_n/d;
            sum:=sum+el;
            x_n:=x_n*x;
            d:=d+1;
            mul:=-mul;
            n:=n+1;
         until not(((el>e)or(el<-e)) and(d<$7FFF));
         writeln(x:6:3,' ',sum:13:10,' ',n:6,' ',ln(x+1):13:10);
      end;
      x:=x+dx;
   end;
   readln;
end.