Вычислить Sin(x)/x (Delphi)

[Until]

Помогите доделать задачу пожалуйста.

Вычислить: Sin(x)/x=1-x2/3!+x4/5!-x6/7!+...
1) Для N слагаемых
2) Для E>0 до тех пор пока слагаемое >E
3) Сравнить истинное значение.

PHP код:

Procedure SinX_div_X;
Var
    n : Word;
    F1, F2, P,
    k, Xn, Xk, dX, eps, fact : Real;
    sign : Boolean;
Begin
  WriteLn('<<Вычисление функции Sin(x)/x с помощью ряда Тейлора>>');
  WriteLn('Введите начальное и конечное значение аргумента');
  Read(Xn,Xk);
  If Xn>Xk then
    Begin
      P:=Xn; Xn:=Xk; Xk:=P;
    end;
  eps:=0.001;
  dx:=(Xk-Xn)/10; //Для 10-ти значений аргумента
  WriteLn;
  While Xn<=Xk do
    Begin
      F2:=Sin(Xn)/Xn;
      n:=0;
      P:=1;
      F1:=1;
      fact:=1;
      k:=1;
      sign:=false; //знак "-"
      Repeat
        F2:=F1;
        k:=k+1;
        fact:=fact*k;
        k:=k+1;
        fact:=fact*k;
        P:=P*Sqr(Xn);
        If sign then
          F1:=F1+P/fact
        Else
          F1:=F1-P/fact;
        sign:=not sign; //меняем знак суммирования
        inc(n);
      Until Abs(F1-F2)<eps;
      F2:=Sin(Xn)/Xn;
      WriteLn('|', Xn:12:6, ' |', F1:12:6,'|',n:5,'         |', F2:12:6,'   |');
      Xn:=Xn+dx;
    end;
end; 


[Sciv]

И чем же помочь? Вроде все правильно написано, разве что факториал можно было бы функцией рассчитывать и с сигнумом намудрено (зато оригинально ).