Сумма ряда

[metan]

Вычислить сумму ряда с точность e и сравнить ее с функцией f=2(sinx)^2
s=1+((2x)^2)/2-((2x)^4)/4+((2x)^6)/6-...+((2x)^(2n))/2n!
Программа считает неверно
Значение функции он выводит, например, равным 0.1223
а сумму он выводит ту же, но уже не 0, а 1

uses crt;
var s,f,x,e,t:real;
    n:integer;
begin
  write('Введите аргумент x= ');
  readln(x);
  write('Введите точность расчета e= ');
  readln(e);
  f:=2*sqr(sin(x));
  writeln('Проверочная функция f= ', f:0:5);
  t:=4*x*x/2;
  s:=1+t;
  n:=1;
  repeat
    n:=n+1;
    t:=-t*sqr(2*x)/2/n/(2*n-1);
    s:=s+t;
   until abs(t)<e ;
  writeln('Сумма ряда s= ', s:0:5);
  readln
end.

[metan]

Помогите найти ошибку

[ProBeginner]

s:=1+t; - уберите единицу

[metan]

Вот странно. Еще вчера такого не было, а сегодня решил запустить и такой пирует Спасибо