Циклы: вычислить и вывести на экран в виде таблицы значения функции arctg(x), заданной с помощью ряда Тейлора

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