Ряды тейлора

uses crt;
function arctg(x,e:real;var i:integer):real;
var s,si,t:real;
begin
s:=0;
t:=-1/x;
si:=-1/x;
i:=1;
while abs(s-si)>e do
 begin
  s:=si;
  i:=i+1;
  t:=-t/(x*x);
  si:=si+t/(2*i-1);
 end;
arctg:=-pi/2+s;
end;
procedure Shapka(xn,xk,dx,e:real);
begin
writeln('      Таблица табулирования функции arctg(x)');
writeln('на интервале ',xn:0:2,'  ',xk:0:2,' с шагом ',dx:0:2,' с точностью ',e:0:8);
writeln('----------------------------');
writeln('|   x   |  arctg(x) | Китр.|');
writeln('----------------------------');
end;
var xn,xk,e,dx,t,s:real;
    i:integer;
begin
repeat
write('Начало интервала xn>1 xn=');
read(xn);
until xn>1;
repeat
write('Введите конец интервала xk>',xn:0:1,' xk=');
read(xk);
until xk>xn;
repeat
write('Введите точность в интервале (0,1) e=');
read(e);
until(e>0)and(e<1);
repeat
write('Введите шаг табуляции, положительное число меньше ',xk-xn:0:2,' dx=');
read(dx);
until (dx<xk-xn)and(dx>0);
write('Press Enter...');
readln;
clrscr;
writeln('Таблица табулирования функции arctg(x)');
writeln('     на интервале [',xn:0:2,';',xk:0:2,']');
writeln(' с шагом ',dx:0:2,' с точностью ',e:0:8);
writeln('----------------------------');
writeln('|   x   |  arctg(x) |Китер.|');
writeln('----------------------------');
while xn<=xk+dx/2 do
 begin
  t:=-1/xn;
  s:=pi/2-1/xn;
  i:=1;
  while abs(t)/(2*i-1)>e do
   begin
    i:=i+1;
    t:=-t/(xn*xn);
    s:=s+t/(2*i-1);
   end;
  writeln('|',xn:6:2,' |',s:10:6,' |',i:4,'  |');
  xn:=xn+dx;
 end;
writeln('----------------------------');
end.