Найти среднее арифметическое элементов каждого из столбцов квадратной матрицы

Модуль.
 
unit matrica;
interface
uses crt;
const n=3;
type
mas=array[1..n] of integer;{тип массив-строки матрицы}
matr=array[1..n] of mas;{матрица-массив строк}
function Sred(m:mas):real;
procedure Vvod(var m:matr);
procedure Trans(var m:matr);
implementation
function Sred(m:mas):real;{вычисление среднего в массиве}
var i,sr:integer;
begin
sr:=0;
for i:=1 to n do
sr:=sr+m[i];
Sred:=sr/n;
end;
procedure Vvod(var m:matr);{ввод матрицы с клавиатуры}
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  write('el[',i,',',j,']=');
  readln(m[i,j]);
 end;
clrscr;
writeln('Матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(m[i,j]:4);
  writeln;
 end;
end;
procedure Trans(var m:matr);{транспонирование матрицы, чтоб столбцы стали строками}
var i,j,x:integer;
begin
for i:=1 to n do
for j:=1 to n do
if i<j then
 begin
  x:=m[i,j];
  m[i,j]:=m[j,i];
  m[j,i]:=x;
 end;
end;
end.
 
Программа.
 
uses crt,matrica;
var a:matr;
    i,j,x:integer;
begin
clrscr;
Vvod(a);{ввод матрицы}
Trans(a);{транспонирование}
for i:=1 to n do {по порядку столбцов(которые сейчас строки)}
writeln('Среднее арифметическое в столбце ',i,'=',Sred(a[i]):0:2);{считаем среднее}
readln
end.