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

{до процедуры - только константы}
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.