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.