Исправить ошибку NaN - PascalABC.NET - Ответ 6379177

Program Prog1;
 Uses 
    Crt;
 var
   x : double;
   n : integer;
 const
   eps = 0.001;
   x1 = 0.1;
   x2 = 1;
//функция для вычисления факториала   
  Function fact(n : integer) : integer;
  begin
    if n <= 1 then
      fact := 1
    else
      fact := n * fact(n - 1);
  end;
//величина ф-ции  
  Function Func(x : double) : double;
  begin
    Func:= (1-(power(x,2)/2))+cos(x)-(x/2)*sin(x);
  end;
//сумма от i=1 до n  
  Procedure Sn(x : double; n : integer);
  var
   i:integer;
   s, s2: double;
  begin
   S:=0;
   for i:=0 to n do
      S:= S + (power(-1,i)*(2*power(i,2))+1)*power(x,2*i)/fact(2*i);
      s2:= Func(x)-s;
   Write('Сумма Sn = ',S);
   WriteLn(', отклонение от ф-ции = ',S2);
  end; 
//сумма с точностью eps=0,001  
  Procedure Seps(x : double);
  var
  s,s2, member : double;
  i : integer;
  begin
   member:= power(-1,i)*(2*sqr(i)+1)*power(x,2*i)/fact(2*i);
   i:=1;
   s:=member;
   While member > eps do
   begin
      i:=i+1;
      member:=power(-1,i)*(2*sqr(i)+1)*power(x,2*i)/fact(2*i);
      S:=s+member;
   end;
   s2:=Func(x)-s;
   Write('Сумма Seps = ', s:2:2);
   Write(', кол-во элементов = ', i);
   Write(', отклонение ф-ции =  ',s2:2:2);
   WriteLn();
  end; 
//процедура вывода  
  Procedure OutPut(x : double; n : integer);
  begin
     clrscr;
     WriteLn('====================================');
     WriteLn('//////////////////////////////////////');
     WriteLn('====================================');
     WriteLn('При х = ',x,', n = ',n,', eps = 0,001:');
     Seps(x);
     Sn(x,n);
     WriteLn('Значение ф-ции : ',Func(x):2:2);
     WriteLn();
  end;
  
 begin
//ввод исходных данных
   Write('Введите значение 0 < n < 30: ');
   ReadLn(n);
   While (n<0) or (n>30) do
      begin
         Write('Введите правильное значение n > 0: ');
         ReadLn(n);
      end;
      
   Write('Введите значение х в диапазоне от 0.1 до 1: ');
   ReadLn(x);
   While (x>x2) or (x<x1) do
      begin
         Write('Введите значение х в диапазоне от 0.1 до 1: ');
         ReadLn(x);
      end;
   ClrScr;
   OutPut(x,n);
   OutPut(x1,n);
   OutPut(x2,n);
   ReadLn(); 
 end.