Даны числа n, действительная матрица размером n*9. найти среднее арифметическое: каждого из столбцов — Pascal(Паскаль)

uses crt;
const n=9;
var a: array[1..n,1..9] of integer; 
      i,j: byte; sr: real;
begin
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to 9 do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:3);
    end;
   writeln;
  end;
 writeln('среднее арифметическое каждого из столбцов: ');
 for j:=1 to 9 do
  begin
   sr:=0;
   for i:=1 to n do 
    sr:=sr+a[i,j];
   sr:=sr/n;
   writeln('среднее арифметическое ',j,'-ого столбца = ',sr:5:2);
  end;
end.