Найти среднее арифметическое элементов каждого столбца матрицы - Turbo Pascal (33916)

Формулировка задачи:

1)Разработать алгоритм и программу решения задачи:" Дана действительная матрица размера n*m.Найти среднее арифметическое элементов каждого столбца" 2)Разработать алгоритм и программу, которая формирует файл записей данной структуры Type Student=Record Imja:String;Vozrast:16..35; Kurs:1..5; end; и определяет -курс на котором наибольший процент мужчин ; -самые распростронённые женские и мужские имена; -список студентов данного пола , данного курса. Язык Pascal

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

Листинг программы

var
a:array [1..100,1..100] of integer;
i,j,sr,n,m,s:integer;
begin
Writeln('Введите N');
readln(n);
Writeln('Введите M');
readln(m);
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(10)+1;
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
j:=1;
for j:=1 to m do
for i:=1 to n do begin
s:=s+a[i,j];
sr:=sr+1;
if i=n then begin
writeln('(',j,')','Среднее арифм=  ',s/sr);
s:=0;
sr:=0;
end;
end;
readln;
end.

Объяснение кода листинга программы

Создается переменная a, которая представляет собой матрицу размером n на m и заполняется случайными числами от 1 до 100.
Запрашивается количество строк и столбцов матрицы с помощью функции readln().
В цикле for перебираются строки матрицы от 1 до n.
Внутри этого цикла перебираются столбцы матрицы от 1 до m.
Значения каждой ячейки матрицы a[i,j] выводятся на экран.
После вывода значений всех ячеек матрицы, выполняется второй цикл for, который аналогичен первому, но используется для вычисления суммы элементов каждой строки и подсчета количества строк, которые содержат максимальное значение.
Если текущая строка является последней строкой матрицы (т.е. i равно n), то выводится среднее арифметическое значение суммы элементов этой строки, вычисленное как отношение суммы к количеству строк.
Переменные s и sr сбрасываются в начало цикла для следующего прохода.
Функция readln() используется повторно, чтобы прочитать следующую команду.