Разработайте универсальную подпрограмму, определяющую среднее арифметическое элементов в столбце С матрицы размером n×m - Free Pascal

uses crt,modul;
var a:mtr;
    n,m,i,j:byte;
begin
clrscr;
randomize;
repeat
writeln('Введите размеры матрицы от 2 до 10');
readln(n,m);
until(n in [2..10])and(m in [2..10]);
writeln('Матрица');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Средние содержания в столбцах');
for j:=1 to m do
writeln('столбец ',j:2,'=',sred(a,n,j):5:2);
readln
end.