Склавиатуры вводятся натуральное число n и вещественное число x. вычислить сумму (-1)^n*(2x)^2n/(2n+1)!

Program proga_1;
var  x: real;  n: integer;
function func(n: integer; x: real): real;var  i: integer;  i1, i2, i3: real; 
 
//функция вычисления степени
 function power(n: integer; x: real): real; 
var  i: integer; res: real;
begin res := x; for i := 1 to n - 1 do res := res * x;
power := res;
 end;
 //фукция вычисления факториала 
 function factorial(x: integer): integer;
 var    i, res: integer;
begin for i := 1 to x do inc(res, i);
 factorial := res;
 end;
begin
  if n mod 2 = 0 then i1 := 1 else i1 := -1; //определяем число -1 степени n 
i2 := power(2 * n, 2 * x);
i3 := factorial(2 * n + 1);
func := (i1 * i2) / i3;end;
begin 
write('Введите n: '); readln(n); 
write('Введите x: '); readln(x); 
 writeln('Сумма равна: ', func(n, x));  
end.