Организация циклов. Табулирование функции e^x. Ряд Тейлора

Uses Crt;
Var
    n : Word;
    F1, F2, P,
    k, Xn, Xk, dX, eps, fact : Real;
Begin
  ClrScr;
  WriteLn('            <<‚лзЁб«Ґ*ЁҐ дг*ЄжЁЁ e^x б Ї®¬®ймо ап¤* ’Ґ©«®а*>>');
  WriteLn('‚ўҐ¤ЁвҐ **з*«м*®Ґ Ё Є®*Ґз*®Ґ §**зҐ*Ёп *аЈг¬Ґ*в*');
//  WriteLn('            <<Вычисление функции e^x с помощью ряда Тейлора>>');
//  WriteLn('Введите начальное и конечное значение аргумента');
  Read(Xn,Xk);
  If Xn>Xk then
    Begin
      P:=Xn; Xn:=Xk; Xk:=P;
    end;
  eps:=0.001;
  dx:=(Xk-Xn)/10;
  WriteLn('___________________________________________________________');
  WriteLn('| ЂаЈг¬Ґ*в    |  ”г*ЄжЁп   | —Ёб«® з«Ґ*®ў |’®з*®Ґ §**зҐ*ЁҐ|');
  WriteLn('|_____________|____________|______________|_______________|');
//  WriteLn('___________________________________________________________');
//  WriteLn('| Аргумент    |  Функция   | Число членов |Точное значение|');
//  WriteLn('|_____________|____________|______________|_______________|');
  While Xn<=Xk do
    Begin
      n:=0;
      P:=Xn;
      F1:=1+Xn;
      fact:=1;
      k:=1;
      Repeat
        F2:=F1;
        k:=k+1;
        fact:=fact*k;
        P:=P*Xn;
        F1:=F1+P/fact;
        inc(n);
      Until Abs(F1-F2)<eps;
      F2:=exp(Xn);
      WriteLn('|', Xn:12:6, ' |', F1:12:6,'|',n:5,'         |', F2:12:6,'   |');
      Xn:=Xn+dx;
    end;
end.