Дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. Определите средний балл студентов группы по каждому предмету — Pascal(Паскаль)

uses crt;
const n=22; {если Турбо Паскаль в режиме окна 25 строк, 
больше на экран не войдет, если нужно, исправьте}
      m=10;
type mas=array[1..n] of byte;{массивы - столбцы}
    matr=array[1..m] of mas;{массив столбцов - матрица}
function Sred(m:mas):real;{вычисление среднего в столбце}
var i:byte;
    s:real;
begin
s:=0;
for i:=1 to n do{считаем сумму и делим на количество}
s:=s+m[i];
Sred:=s/n;
end;
 
var a:matr;
    i,j:byte;
begin
clrscr;
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(3)+3;{заполняем по столбцам оценки
это без 2, если нужно напишите random(4)+2}
writeln('Ведомость оценок за 1 семетр:':40);
for i:=1 to n do{по строкам}
 begin
  write('':5);{в начале строки отступ по 5 пробелов}
  for j:=1 to m do{по столбцам}
  write(a[j,i]:4);{выводим матрицу в транспонированном виде, 
не a[i,j], a a[j,i], чтоб столбцы были столбцами а не строками}
  writeln;
 end;
writeln;
write('Сред.');{нижняя строка результат вычисления по столбцам}
for i:=1 to m do
write(Sred(a[i]):4:1);
readln
end.