Вычислите средние арифметические в столбцах матрицы - Pascal ABC

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

Помогите пожалуйста сделать программу. Сформировать и вывести массив,состоящий из номеров столбцов,в котором второй элемент меньше первого.Вычислите средние арифметические в этих столбцах и заменить элементы этих столбцов соответствующими значениями средних арифметических.

Решение задачи: «Вычислите средние арифметические в столбцах матрицы»

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

uses CRT;
var
mmas:array[1..15] of integer;
mas:array[1..15, 1..15] of real;
i,j,n, m:integer;
 
Function sr(j,n:integer):real;
var
ssr:real;
i:integer;
Begin
  ssr:=0;
  for i:=1 to n do
    ssr:=ssr+mas[i,j];
  sr:=ssr/n;
End;
 
Procedure sstb(j,n:integer);
var
cr:real;
i:integer;
Begin
  cr:=sr(j,n);
  for i:=1 to n do
    mas[i,j]:=cr;
end;
 
BEGIN
  randomize;
  writeln('Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г§Г¬ГҐГ°Г*Г®Г±ГІГј Г¬Г*ГІГ°ГЁГ¶Г»(n m, max=15)');
  readln(n, m);
  writeln('ГЊГ*ГІГ°ГЁГ¶Г*:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
       mas[i,j]:=-15+random(31);
       write(mas[i,j]:6:1);
    end;
    writeln;
  end;
  writeln;
  for i:=1 to m do
    if mas[1,i]>mas[2,i] then
    begin
      sstb(i,n);
      mmas[i]:=i;
    end;
  writeln('ГЌГ®ГўГ*Гї Г¬Г*ГІГ°ГЁГ¶Г*:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(mas[i,j]:6:1);
    writeln;
  end;
  writeln('ГЊГ*Г±Г±ГЁГў Г*Г®Г¬ГҐГ°Г®Гў Г±ГІГ®Г«ГЎГ¶Г®Гў:');
  for i:=1  to m do
    if mmas[i]>0 then
      write(mmas[i]:3);
END.

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

Объявлены переменные: mmas, mas, i, j, n, m, sr, ssr, cr, tb.
Определена функция sr, которая вычисляет среднее арифметическое в заданном столбце матрицы.
Определена процедура sstb, которая заполняет заданный столбец матрицы средним арифметическим.
В начале программы запрашиваются размеры матрицы и выводится сообщение с заголовком Введите количество строк и столбцов (n m, max=15).
Затем выводится сообщение Введите номер столбца для обработки:.
Матрица mas инициализируется случайными значениями от -15 до 0.
Если первая строка матрицы mas не является строкой-заголовком, то выполняется процедура sstb для этого столбца.
Выводится сообщение ГЌГ®ГўГ*Гї Г¬Г*ГІГ°ГЁГ¶Г*: с матрицей mas.
Если первая строка матрицы mas не является строкой-заголовком, то выводится сообщение ГЊГ*Г±Г±ГЁГў Г*Г®Г¬ГҐГ°Г®Гў Г±ГІГ®Г«ГЎГ¶Г®Гў: с номерами столбцов, для которых mmas[i]>0.