Определение суммы членов ряда с использованием рукурентной формулы для получения следующего члена ряда

uses crt;
var xn,xk,e,dx,d,y,f,t:real;
    i,k:integer;
begin
clrscr;
repeat
write('Введите конец интервала xk<=1 xk=');
readln(xk);
until xk<=1;
repeat
write('Начало интервала -1<= xn <',xk:0:2,' xn=');
readln(xn);
until (xn<xk)and(xn>=-1);
repeat
write('Введите точность в интервале (0,1) e=');
readln(e);
until(e>0)and(e<1);
repeat
write('Введите шаг табуляции, положительное число меньше ',xk-xn:0:2,' dx=');
readln(dx);
until (dx<xk-xn)and(dx>0);
write('Press Enter...');
readln;
clrscr;
writeln('      Таблица табулирования функции arctg(x)');
writeln('на интервале ',xn:0:2,'  ',xk:0:2,' с шагом ',dx:0:2,' с точностью ',e:0:8);
writeln('---------------------------------');
writeln('|   x   |  arctg(x) |   Сумма   |');
writeln('---------------------------------');
k:=0;
while xn<=xk do
 begin
  f:=arctan(xn);
  d:=xn;
  y:=0;
  i:=0;
  t:=1/(2*i+1);
  while abs(d)>e do
   begin
    y:=y+d*t;
    inc(i);
    d:=-d*xn*xn;
    t:=1/(2*i+1);
   end;
  writeln('|',xn:6:2,' |',f:10:6,' |',y:10:6,' |');
  k:=k+1;
  if k mod 18=0 then//это если много значений и не войдут на экран
   begin
    write('Press Enter...');
    readln;
    clrscr;
   end;
  xn:=xn+dx;
 end;
writeln('---------------------------------');
write('Press Enter...');
readln
end.