Вычислить и вывести на экран в виде таблицы значения функции - Pascal (3795)

uses crt;
var xn,xk,dx,e,x,s,t:real;
    n,k:integer;
begin
repeat
writeln('Введите диапазон');
readln(xn,xk);
until xk>xn;
repeat
write('Введите шаг табулирования dx<',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
repeat
write('Введите точность вычисления суммы 0<e<1 e=');
readln(e);
until (e>0)and(e<1);
writeln('Табулирование функции, представленной разложением в степенной ряд');
writeln('     на интервале ',xn:0:2,'-',xk:0:2,' с шагом ',dx:0:2);
writeln('        -------------------------');
writeln('        |   X   |    S    |  n  |');
writeln('        -------------------------');
x:=xn;
while x<=xk+dx/2 do
 begin
  n:=1;
  t:=-2*x*x;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*sqr(2*x)/((2*n-1)*(2*n));
    s:=s+t
   end;
  writeln('        |',x:6:2,' |',s:8:4,' |',n:4,' |');
  k:=k+1;
  if k mod 16=0 then
   begin
    write('Нажмите Enter');
    readln;
    clrscr;
    writeln('        -------------------------');
    writeln('        |   X   |    S    |  n  |');
    writeln('        -------------------------');
   end;
  x:=x+dx;
 end;
writeln('        -------------------------');
end.