Вычислить значения функции,если xi и ai— элементы массивов, состоящих из десяти элементов каждый — Pascal(Паскаль)

uses crt;
const
  str=5;
  sto=5;
var
  a:array [1..str,1..sto] of integer;
  i,j:integer;

function Func(x:integer):real;
begin
  Result:=cos(x)
end;

begin
  clrscr;

  writeln('Формируем значение переменной x в двухмерном массиве:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
   {Определяем значение функции cos(x) в каждом элементе массива}
   for i:=1 to str do
     for j:=1 to sto do
       writeln('F(',a[i,j],') = ',func(a[i,j]))
end.