Упорядочить строки матрицы по неубыванию их наибольших элементов (Delphi->C++)

program N60094766; 
{$APPTYPE CONSOLE} 
var a:array[1..100, 1..100] of integer; 
n, m, i, j, k, imin, jmin, jmax, tmp:integer; 
begin 
write('Введите кол-во строк матрицы N: '); 
readln(n); 
write('Введите кол-во столбцов матрицы M: '); 
readln(m); 
writeln('Заданная матрица: '); 
randomize; 
for i := 1 to n do 
begin 
for j := 1 to m do 
begin 
a[ i, j ] := random(101) - 50; 
write(a[ i, j ]:4) 
end; 
writeln 
end; 
for i := 1 to n - 1 do 
begin 
for k := i to n do 
begin 
for j := 1 to m do 
if (j = 1) or (a[ k, j ] > a[ k, jmax ]) then 
jmax := j; 
if (k = i) or (a[ k, jmax ] < a[ imin, jmin]) then 
begin 
imin := k; 
jmin := jmax 
end; 
end; 
if i <> imin then 
for j := 1 to m do 
begin 
tmp := a[ i, j ]; 
a[ i, j ] := a[ imin, j ]; 
a[ imin, j ] := tmp 
end; 
end; 
writeln('Преобразованная матица: '); 
for i := 1 to n do 
begin 
for j := 1 to m do 
write(a[ i, j ]:4); 
writeln 
end; 
readln 
end.