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

procedure Sm(x,e:real;var s:real;var n:integer);
var t:real;
begin
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x/n;
  s:=s+t;
 end;
end;
var e,xn,xk,dx,x,s:real;
      n:integer;
begin
repeat
write('Введите точность 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
write('Введите начало интервала xn=');
readln(xn);
repeat
write('Введите конец интервала xk<',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции dx<',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
writeln('        Таблица значений функции e^-x, представленной разложением в ряд Тейлора');
writeln('на интервале ',xn:0:1,' - ',xk:0:1,' с шагом ',dx:0:2,' вычисленной с точностью ',e:0:6);
writeln('--------------------');
writeln('|  x  |   S   |  n |');
writeln('--------------------');
x:=xn;
while x<xk+dx/2 do
 begin
  sm(x,e,s,n);
  writeln('|',x:5:2,'|',s:6:4,'|',n:3,' |');
  x:=x+dx;
 end;
writeln('--------------------');
writeln('Проверка последнего значения: x=',x-dx:0:2,'  e^-x=',s:6:4);
end.