Простой итерационный цикл: При вычислении компилятор выдает NAN - Turbo Pascal

Формулировка задачи:

Привет, спасибо, что заинтересовались темой =) У меня проблема возникла... задачка вроде простая, - уравнение итерации вроде бы все правильно написал, но при вычислении компилятор выдает NAN. Да, знаю, что это может быть при попытке деления на ноль и т.д., но у меня нет деления на ноль. Вот код...

 program prog_4_4;
 {$N+}
 var funk1, funk2, x, sum_obsh, sum_obsh_itogovaya, znamenatel, znak, factorial, fact: double;
 n, number_of_stap: integer;
 
 begin
 x:=0.75;
 fact:=0;
 n:=2;
 factorial:=1;
 znamenatel:=1;
 sum_obsh:=0;
 number_of_stap:=1;
 funk1:=0;
 funk2:=100;
 
 repeat
    n:=n+1;
    number_of_stap:=number_of_stap+1;
 
     while fact<(2*znamenatel+1) do
      begin
        fact:=fact+1;
        factorial:=factorial*fact;
      end;
     znamenatel:=znamenatel+1;
 
    if((number_of_stap/2)-1=0) then
     begin
     znak:=-1;  funk1:=((exp(n)*ln(x))/factorial)*znak;
     end
    Else
     begin
     znak:=1;   funk2:=((exp(n)*ln(x))/factorial)*znak;
     end;
 
    sum_obsh:=sum_obsh+funk1+funk2;
    writeln('Степень=',n, 'funk1=', funk1, 'funk2=', funk2);
 until ((funk1+funk2) < 0.5);
 sum_obsh_itogovaya:=sum_obsh+(x);
 writeln('======Итоговая сумма=======', sum_obsh_itogovaya);
 readln;
 end.

Решение задачи: «Простой итерационный цикл: При вычислении компилятор выдает NAN»

Листинг программы

uses crt;
var x,e,s,t:real;
    n:integer;
begin
clrscr;
x:=0.75;
e:=0.01;
n:=1;
t:=x;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n-2)/(2*n-1);
  s:=s+t;
 end;
writeln('S=',s:0:2);
writeln('Sinx=',sin(x):0:2);
readln
end.

Объяснение кода листинга программы

В начале кода используются необходимые библиотеки и объявляются переменные: x, e, s, t, n.
Строка clrscr; очищает экран.
Переменная x инициализируется значением 0.75.
Переменная e инициализируется значением 0.01.
Переменная n инициализируется значением 1.
Переменная t инициализируется значением x.
Переменная s инициализируется значением t.
Запускается цикл while, который выполняется до тех пор, пока abs(t) больше e.
Внутри цикла переменная n увеличивается на 1.
Переменная t вычисляется как -txx/(2n-2)/(2n-1).
Переменная s увеличивается на значение t.
Цикл while завершается, когда abs(t) становится меньше или равно e.
Выводится значение переменной s с точностью до двух знаков после запятой.
Выводится значение функции sin(x) с точностью до двух знаков после запятой.
Вызывается функция readln(), чтобы пользователь мог прочитать ввод.
Программа завершается.