Найти ошибку в програме (Pascal)

[spinogryz_ua]

 uses crt;
 var s,y,x,eps:real; i,t:integer;
      function fac(n:integer) : real;
           var k:integer; f:real;
           begin
           f:=2;
           for k:=2 to n do
           f:=f*(n+1);
           fac:=f;
           end;
 function zch( p:real;n,r:integer):real;
          var  o:real;
  begin
  o:=1;
 o:=r*(n+exp((n+1)*ln(x)))/((n+sqrt(n)+1)*fac(i));
  zch:=o;
   end;

   begin
     writeln('введіть х, еxp');
     readln(x,eps);
         writeln('  №   Значення  Поточна сума');
         i:=1; s:=0;  y:=1; t:=1;
      while abs(y)>eps do begin
   y:=zch(x,i,t);
    s:=s+y ;
   writeln(i:3,y:10:5,s:13:6);
   i:=i+1;  t:=-t;

   end;
          writeln('Остаточна сума = ',s:9:7);
    end.

Не знаю в чем проблема, должно показывать 0,12037377