Вычислить и вывести на экран в виде таблицы значения функции

const eps=0.0001;
var x_nach,x_kon,x,s,delta_x,t:real;
    n:integer;
begin
write('Введите начало интервала x_nach<-1 x_nach=');
readln(x_nach);
repeat
write('Введите конец интервала, больше ',x_nach:0:1,' x_kon=');
readln(x_kon);
until x_kon>x_nach;
repeat
write('Введите шаг табуляции, меньше ',x_kon-x_nach:0:1,' delta_x=');
readln(delta_x);
until delta_x<x_kon-x_nach;
clrscr;
x:=x_nach;
writeln('       Табулирование функции F(x)=e^x,');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',x_nach:0:1,'..',x_kon:0:1,' с шагом ',delta_x:0:1);
writeln;
writeln('        -----------------------------------');
writeln('        |   X   |    S    |   e^x   |  n  | ');
writeln('        -----------------------------------');
while x<=x_kon+delta_x/2 do
 begin
  n:=0;
  t:=1;{текущий член ряда x^n/n!}
  s:=t;{сумма}
  while abs(t)>=eps do
   begin
    n:=n+1;
    t:=t*x/n;
    s:=s+t;
   end;
  writeln('        |',x:6:1,' |',s:8:4,' |',exp(x):8:4,' | ',n:4,'|');
  x:=x+delta_x;
 end;
writeln('        -----------------------------------');
end.