Разложение функции e^x в бесконечный ряд

uses Crt;
const
  imax = 10000;        
var
  X             : real;
  s,a           : real;
  EPS           : real;
  i             : word;
begin
  ClrScr;
  repeat
    write('Введите аргумент X (|X|<1): ');
    readln(X);
  until (abs(X)<1);
  repeat
    write('Введите точность EPS (EPS>0): ');
    readln(EPS);
  until (EPS>0);
  a:=1;                 
  i:=0;                 
  s:=a;                 
  while (abs(a)>EPS) and (i<=imax) do   
  begin                                 
    inc(i);                             
    a:=a*(X/i);                        
    s:=s+a;                             
  end;
  writeln;
  if i<=imax then
  begin
    writeln('Значение функции в точке X=',X:12:10,' равно');
    writeln('F(X)=',s:14:12,' - **найденное в виде суммы ряда;');
    writeln('F(X)=',exp(X):14:12,' - **найденное по контрольной формуле.');
  end
  else
    writeln('Сумма ряда не вычислена, т. к. ряд расходится.');
   writeln('Нажмите любую клавишу...');
  repeat
  until Keypressed;
end.