Составить программу с функцией, имеющей параметр – одномерный массив Х. Функция вычисляет значение S по формуле

program y4p2;
 uses crt;
 type mas=array[1..100] of integer;
 var i,n:integer;
     a:mas;
     s:real;
 function st(x:real;k:integer):real;
  var
   i:integer;
    begin
    if k=0 then
      st:=1
           else
      begin
       st:=1;
       for i:=1 to 2*k do
        st:=st(x,k)*x*2;
      end;
    end;
 function fact(k:integer):integer;
  var i:integer;
  begin
   fact:=1;
   if k=0 then
     fact:=1
          else
     for i:=1 to 2*k do
      begin
       fact:=fact(k)*i*2*(2*i-1);
      end;
   end;
 function sum(x:mas;i:integer):real;
  var
   k,n:integer;
  begin
   for k:=1 to n do
    begin
     if k mod 2=0 then
      sum:=sum(x,i)+st(x[i],k)/fact(k)
                  else
      sum:=sum(x,i)+(st(x[i],k)/fact(k))*(-1);
    end;
  end;
 begin
  clrscr;
  randomize;
  writeln('ўўҐ¤ЁвҐ n');
  readln(n);
  for i:=1 to n do
   a[i]:=random(20);
  for i:=1 to n do
   begin
    s:=sum(a,i);
    writeln('x=',a[i], '  s=', s:2:2);
   end;
   readkey;
 end.

uses crt;
var n:integer;
function Summa(x:real):real;
var k:integer;
    s,t:real;
begin
s:=0;
t:=1;
for k:=1 to n do
 begin
  t:=-t*sqr(2*x)/(2*k*(2*k-1));
  s:=s+t;
 end;
Summa:=s;
end;
var x:real;
begin
clrscr;
write('x=');
readln(x);
write('n=');
readln(n);
write('Summa=',Summa(x):0:4);
readln
end.

uses crt;
var n,i,m:integer;
    a:array[1..100]of integer;
    x:real;
function Summa(x:real):real;
var k:integer;
    s,t:real;
begin
s:=0;
t:=1;
for k:=1 to n do
 begin
  t:=-t*sqr(2*x)/(2*k*(2*k-1));
  s:=s+t;
 end;
Summa:=s;
end;
begin
clrscr;
writeln('vvedite razmernostb massiva');
read(m);
writeln('vvedite elementi massiva');
for i:=1 to m do
read(a[i]);
write('vvedite n');
readln(n);
for i:=1 to m do
 begin
 x:=a[i];
writeln('x=',a[i],'  Summa=',Summa(x):0:2);
 end;
readln
end.