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

uses crt;
const e=0.0001;
var xn,xk,x,s,si,dx,t,at:real;
    n:integer;
begin
repeat
write('Введите начало интервала xn>1 xn=');
read(xn);
until xn>1;
repeat
write('Введите конец интервала, больше ',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('Введите шаг табуляции, больше 0, меньше ',xk-xn:0:1,' dx=');
read(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('        -----------------------------------');
end.