Найти среднее арифметическое последнего столбца в матрице (процедура)

program pr;
 
const
  n = 10;
  m = 10;
 
type
  arr = array [1..n, 1..m] of integer;
 
var
  j, i: integer;
  a: arr;
 
procedure avg(a: arr);
var
  i, sum: integer;
  avg: double;
begin
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i, 10];
  avg := sum / 10;
  writeln('Среднее арифметическое последнего столбца: ', avg);
end;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  writeln('Матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do
      write(a[i, j]:3);
    writeln;
  end;
  avg(a);
end.

{до процедуры - только константы}
const n = 10;
      m = 10;
 
{и типы, необходимые для работы процедуры}
type arr = array [1..n, 1..m] of integer;
 
{массивы лучше передавать по ссылке, особенно, если размер массива очень большой}
{в average - возвращаемое значение}
procedure avg(var x: arr; var average: double);
var i: integer;
begin
  average := 0;
  for i := 1 to n do average := average + x[i, 10];
  average := average / 10
end;
 
{а вот теперь - глобальные переменные,}
{при попытке их использования в процедуре, возникнет легко устранимая ошибка,}
{поскольку описаны они ПОСЛЕ процедуры, и ДО их описания не могут быть использованы}
var j, i: integer;
    a: arr;
    av: double;
 
begin
  randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(21);
  writeln('Матрица');
  for i := 1 to n do
  begin
    for j := 1 to m do write(a[i, j]:3);
    writeln
  end;
  avg(a, av);
  {передача значения в основную программу через переменную av}
  writeln('Среднее арифметическое последнего столбца: ', av:0:10)
  {на самом деле, при n=10 достаточно av:0:1}
end.