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

uses crt;
const e=0.0001;
var xn,xk,x,s,si,dx,t,at:real;
    n:integer;
begin
clrscr;
repeat
write('Введите начало интервала xn<-1 xn=');
readln(xn);
until xn<-1;
repeat
write('Введите конец интервала, больше ',xn:0:1,' <-1 xk=');
readln(xk);
until (xk>xn)and(xk<-1);
repeat
write('Введите шаг табуляции, больше 0, меньше ',xk-xn:0:1,' dx=');
readln(dx);
until (dx>0)and(dx<xk-xn);
clrscr;
x:=xn;
writeln('     Табулирование функции F(x)=arctg(x) при x<1,');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',dx:0:1);
writeln;
writeln('        -----------------------------------');
writeln('        |   X   |    S    |  arctg  |  n  | ');
writeln('        -----------------------------------');
while x<=xk+dx/2 do
 begin
  n:=0;
  t:=-1/x;
  s:=t;
  while abs(t/(2*n+1))>=e do
   begin
    n:=n+1;
    t:=-t/(x*x);
    s:=s+t/(2*n+1);
   end;
  s:=-pi/2+s;
  at:=arctan(x);
  writeln('        |',x:6:1,' |',s:8:4,' |',at:8:4,' | ',n:4,'|');
  x:=x+dx;
 end;
writeln('        -----------------------------------');
readln
end.

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