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

const xn=0.0;
      xk=1.0;
      dx=0.2;
      e=0.000001;
function f(x:real):real;
begin
f:=((exp(x)+exp(-x))/2-cos(x))/2;
end;
var x,t,s:real;
    k:integer;
begin
//выводим шапку
writeln('Таблица значений функции y=(chx-cosx)/2,');
writeln('представленной разложением в ряд Тейлора');
writeln('на интервале [',xn:0:2,';',xk:0:2,'] с шагом ',dx:0:2,' с точностью ',e:0:6);
writeln('-------------------------------');
writeln('|  x  |  s(x)  |  n  |  f(x)  |');
writeln('-------------------------------');
//начнем с начала интервала
x:=xn;
while x<=xk do //пока не конец
 begin
  k:=0;//нулевой член ряда
  t:=x*x/2; //его значение
  s:=t; //первая сумма
  while t>e do//пока очередной член ряда больше точности
   begin
    k:=k+1;//увеличиваем k на 1
    t:=t*x*x*x*x/(6*k)/(6*k-1)/(6*k-2)/(6*k-3); //умножаем предыдущий член на x^4,
                                                //делим на 4 следующих числа
                                               //это рекуррентное отношение указанное в формуле
    s:=s+t; //прибавляем к сумме
   end;
  writeln('|',x:5:2,'|',s:8:6,'|',k+1:3,'  |',f(x):8:6,'|'); //выводим аргумент значение сумы и число слагаемых
  x:=x+dx;//увеличиваем х на 1 шаг
 end;
writeln('--------------------------------');
end.