Вычислить значение выражения

program pr123;
var t:array [1..n] of real;
F1,F2,L:real;
Procedure Fact2(B : Longint);
Procedure Fact1(A : Longint);
Procedure Pr(x:real);
var p,m:real; n:integer;
begin
p:=0;
for k:=1 to n do
p:=m*p;
Pr:=p;
end;
 
begin
If A>0 then Fact1:=A*Fact1(A-1) else Fact:=1;
end;
 
begin
If B>0 then Fact2:=B*Fact2(B-1) else Fact:=1;
end;
 
Begin
begin
writeln('vvedite x,n');
read(x,n);
writeln('vvedite',n,'chisel');
for k:=1 to n do
read (t[n]);
A:=3*k-2;
B:=2*k;
F1:=Fact1;
F2:=Fact2;
m:=(exp(ln(x)*2*k)*cos(k*x)/F1)-(((t[k])*sin(k*x))/F2)+1;
end;
L:=Pr(m,p);
wtiteln('proizvedenie=',L);
End.

program pr123;
const nmax=20;//максимальный размер массива
type mas=array[1..nmax] of real;//его тип
Procedure Pr(t:mas;x:real;n:integer);//процедура вычисления произведения
var p,sx,f1,f2:real;
    k,c:integer;
begin
//значения параметов при k=1
sx:=x*x;//x^2k
f1:=1;//(3k-2)!
f2:=2;//(2k)!
c:=-1;//первое число в цепочке чисел при вычислении первого факториала
p:=sx*cos(x)/f1-t[1]*sin(x)/f2+1;//начальное произведение
for k:=2 to n do
 begin
  sx:=sx*x*x;//домножаем x^2*x^2
  c:=c+3;//следующее первое число (2,5,8...)
  f1:=f1*c*(c+1)*(c+2);//первый факториал(1*(2*3*4)*(5*6*7)*(8*9*10)...)
  f2:=f2*(2*k-1)*2*k; //второй факториал(2*(3*4)*(5*6)*(7*8))
  p:=p*sx*cos(k*x)/f1-t[k]*sin(k*x)/f2+1;//следующее произведение
 end;
write('Произведение=',p);
end;
var t:mas;
    x:real;
    n,k:integer;
begin
randomize;
repeat
write('Введите n от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив t(n)');
for k:=1 to n do
 begin
  t[k]:=10+10*random;
  write(t[k]:8:2);
 end;
writeln;
write('x=');
readln(x);
Pr(t,x,n);
end.