Значения функции вывести в виде таблицы на интервале от до с шагом h. . Сама программа готова

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