Вычислить сумму ряда

uses crt;
var x,xn,xk,dx,e,y,t,s:real;
    n:integer;
begin
clrscr;
write('x_nach=');
readln(xn);
repeat
write('x_kon>',xn:0:1,' xk=');
readln(xk);
until xk>xn;
repeat
write('delta_x<',xk-xn:0:1,' dx=');
readln(dx);
until dx<xk-xn;
write('eps=');
readln(e);
writeln('Табулирование функции y=(x-sinx)/x^2');
writeln('на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',dx:0:1);
writeln('вычисленной разложением в ряд с точностью ',e:0:5);
writeln('---------------------------');
writeln('|  x  |    S    |   F(x)  |');
writeln('---------------------------');
x:=xn;
while x<=xk+dx/2 do
 begin
  if x=0 then
   writeln('|',x:4:1,' | не опр. | не опр. |')
  else
   begin
    n:=1;
    t:=x/6;
    s:=t;
    while abs(t)>e do
     begin
      n:=n+1;
      t:=-t*x*x/(2*n*(2*n+1));
      s:=s+t;
     end;
    writeln('|',x:4:1,' |',s:8:4,' |',(x-sin(x))/(x*x):8:4,' |');
   end;
  x:=x+dx;
 end;
writeln('---------------------------');
readln
end.