Дана матрица n x n, вывести элементы i-го столбца, найти их сумму и max элемент?

program Matrix;

uses MatrixModule;

var

n, m, j: integer;

a: intMatrix;

begin

m : = 2;

n : = m;

Randomize;

FillMatrixByRandom (a, m, n, 0, 100); //заполнение случайными целыми

PrintMatrix (a, m, n); //вывод матрицы в консоль

j : = 2;

PrintCol (a, m, n, j);

Writeln ('MaxInCol (', j, ') = ', MaxInCol (a, m, n, j));

Write ('SumInCol (', j, ') = ', SumInCol (a, m, n, j));

Readln;

end.