Вычислить сумму ряда - Pascal ABC (12943)

Формулировка задачи:

Подскажите как сделать на Pascal) А то туплю что-то...Прога не так результаты выдает... как понял всё не правильно в корне.

Решение задачи: «Вычислить сумму ряда»

Листинг программы

var n,k:integer;
    x,t,s:real;
begin
write('x=');
readln(x);
write('n=');
readln(n);
t:=x; //нулевой член
s:=x;
for k:=1 to n do
 begin
  t:=t*x*x*x*x/(4*k-2)/(4*k-1)/(4*k)/(4*k+1);
  s:=s+t;
 end;
write('s=',s)
end.

Объяснение кода листинга программы

Переменные объявлены: n, k, x, t, s - целочисленные, real - вещественные.
Чтение значений переменных x и n.
Инициализация переменных t и s значениями x.
Запуск цикла for с переменной k от 1 до n.
Внутри цикла вычисление значения t как произведения x возведенного в степень 4, деленного на (4k-2), (4k-1), (4k), (4k+1).
Добавление значения t к переменной s.
Остановка цикла после завершения цикла for.
Вывод значения переменной s.