Паскаль. Вычислить сумму ряда. (помогите найти ошибку в программе)

[Аватар]

Нужно вычислять ряд, нужно вычислить функцию и сравнить результаты

Угу, оно. Memo1.Lines.Add заменить на паскалевский вывод результатов

var x,s,t: Extended;
    i: Longint;
...
  x:=1;
  repeat
    s:=1; t:=1; i:=1;
    repeat
      t:=t*x*x/(4*i*i-2*i);
      s:=s+t;
      Inc(i);
    until t<=0.0001;
    Memo1.Lines.Add(Format('x=%3.1f s=%6.4f y=%8.6f',[x,s,(Exp(x)+Exp(-x))/2]));
    x:=x+0.2;
  until x>2.1;

Можно и циклом for i:=1 to n сумму посчитать без оценки погрешности, тогда чуть по другому