Переставить столбцы в порядке возрастания первых элементов столбцов - Pascal ABC

Формулировка задачи:

задан двумерный массив (nxm). переставить столбцы в порядке возрастания первых элементов столбцов

Решение задачи: «Переставить столбцы в порядке возрастания первых элементов столбцов»

Листинг программы

repeat
write('Количество строк n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов m=');
readln(m);
until m in [1..mmax];
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to m do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    c[i,j]:=random(100);
    write(c[i,j]:3);
   end;
  writeln;
 end;

Объяснение кода листинга программы

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Считывает количество строк и столбцов матрицы с помощью функции readln().
Выполняет цикл, пока количество строк или столбцов не превышает максимально допустимые значения (nmax и mmax соответственно).
Запрашивает ввод элементов матрицы и сохраняет их в массиве a[].
Выводит исходную матрицу.
Генерирует случайные числа для каждого элемента матрицы c[].
Выводит каждый элемент матрицы c[] на отдельной строке. Обратите внимание, что этот код использует вложенные циклы для обработки строк и столбцов матрицы.