Вычислить функцию

const
  n_max=20;
type
  arr=array [1..n_max] of integer;
var
  a,b,c:arr;
  aa,t,p,g,i:integer;
  q:real;
 
procedure creatematrix(var x:arr);
var
  i:integer;
begin
  for i:=1 to n_max do
    begin
      x[i]:=random(n_max) - n_max div 2;
      write(x[i]:4);
    end;
  writeln;
end;
 
function summatrix(x:arr;Y:integer):integer;
var
  sum:integer;
begin
  sum:=0;
  for i:=1 to n_max do
    if x[i]<y then
      sum:=sum+x[i];
  summatrix:=sum;
end;
 
begin
  randomize;
  write('Введите число: '); readln(aa);
  writeln('Array A:');
  creatematrix(a);
  t:=summatrix(a,aa);
  writeln('Summa of array A: ',t);
  writeln('Array B:');
  creatematrix(b);
  p:=summatrix(b,aa);
  writeln('Summa of array B: ',p);
  writeln('Array C:');
  creatematrix(c);
  g:=summatrix(c,aa);
  writeln('Summa of array C: ',g);
  q:=0.33*sin(t)-1.8*cos(2*p)+sqrt(abs(g));
  writeln('Значение функции: ',q:8:2);
  readln;
end.