Упорядочить элементы столбцов матрицы по убыванию, а столбцы по убыванию модуля произведения четных элементов столбцов

const n = 5;
type mas = array[1..n, 1..n] of integer;
var
m : mas;
str, column, i, mit:integer;
 
procedure RandomMassiv(var m: mas);
var i, j : integer;
begin
randomize;
for i := 1 to n do
for j := 1 to n do
m[i, j] := random(10) - 5;
end;
 
procedure Print(var m : mas);
var i, j : integer;
begin
for i := 1 to n do begin
for j := 1 to n do
if(m[i, j] >= 0) then
write(' ', m[i, j], ' ')
else write(m[i, j], ' ');
writeln;
end;
end;
 
procedure Sort(var m : mas);
var str, row, column, i, mit : integer;
begin
str :=n div 2;
while str>0 do
begin
for column := 1 to n do
for row:=n-str downto 1 do
begin i:=row;
while i<=n-str do
begin
if m[i, column]<m[i+str, column] then
begin
mit:=m[i, column];
m[i, column]:=m[i+str, column];
m[i+str, column]:=mit;
end;
i:=i+str;
end;
end;
str:=str div 2;
end;
end;
 
function Module(var m : mas; col : integer) : integer;
var i, s: integer;
begin
s := 1;
for i := 1 to n do
if(i mod 2 = 0) then
s := s * abs(m[i, col]);
module := s;
end;
 
begin
RandomMassiv(m);
Print(m);
Sort(m);
writeln;
Print(m);
end.