Дана матрица 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.