В каждом столбце определить средне-арифметическое (используя функцию) и max из них — Pascal(Паскаль)

uses crt;
const
  str=4;
  sto=4;
  e=1E-7;
var
  a:array [1..str,1..sto] of integer;
  i,j:integer;
  sa,max:real;
begin
 
  writeln('------------------');
  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;
  writeln('------------------');
  
  for i:=1 to str do
  begin
    max:=-10;
    sa:=0;
    for j:=1 to sto do
      sa:=sa+a[i,j];
    writeln('Средне-арифметическое ',i,' стобца: ',sa/sto);
    if abs(sa/sto-max)>e then
      max:=sa/sto
  end;
  writeln('Максимальный : ',max)
end.