Вычислить значение суммы членов безграничного ряда с заданной точностью и значение

Ошиблась: в начале формулы 1+(x^2/2!)

// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
  var x:=0.7;
  var eps:=1e-4;
  var a:=x*x/2;
  var chx:=1+a;
  var n:=1;
  while agt;=eps do begin
    Writeln('n=',n,'   Ch(x)=',chx);
    Inc(n);
    a:=a*x*x/((2*n)*(2*n-1));
    chx:=chx+a
    end;
  Writeln('----------------------------'); 
  Writeln('n=',n,'   Ch(x)=',chx)
end.

Итог выполнения программки:
n=1   Ch(x)=1.245
n=2   Ch(x)=1.25500416666667
n=3   Ch(x)=1.25516756805556
----------------------------
n=4   Ch(x)=1.25516899781771