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

const nmax=10;
      mmax=25;
var c:array[1..nmax,1..mmax] of integer;
    n,m,i,j,k,p:byte;
    sm,x:integer;
begin
randomize;
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
 begin
  for j:=1 to m do
   begin
    c[i,j]:=random(100);
    write(c[i,j]:3);
   end;
  writeln;
 end;
writeln;
//перестановка столбцов по возрастанию значений в первой троке
for j:=1 to m-1 do
for p:=j+1 to m do
if c[1,j]>c[1,p] then
for i:=1 to n do
 begin
  x:=c[i,j];
  c[i,j]:=c[i,p];
  c[i,p]:=x;
 end;
writeln('Столбцы упорядочены:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(c[i,j]:3);
  writeln;
 end;
end.

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;

writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(c[i,j]:3);
 writeln;
 end;