Упорядочить двумерный массив - Pascal - Ответ 699633

uses crt;
const nmax=20;
var c:array[1..nmax,1..nmax] of integer;
    n,m,i,j,p:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк=');readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов=');readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=random(20);
    write(c[i,j]:4);
   end;
  writeln;
 end;
writeln;
{перестановка столбцов по возрастанию значений в последней строке}
{сортировка пузырьком}
for p:=1 to n-1 do
for j:=1 to n-1 do
if c[m,j]>c[m,j+1] then
for i:=1 to m do
 begin
  x:=c[i,j];
  c[i,j]:=c[i,j+1];
  c[i,j+1]:=x;
 end;
{сортировка обменом}
{for j:=1 to n-1 do
for p:=j+1 to n do
if c[n,j]>c[n,p] then
for i:=1 to m do
 begin
  x:=c[i,j];
  c[i,j]:=c[i,p];
  c[i,p]:=x;
 end; }
writeln('Столбцы упорядочены:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(c[i,j]:4);
  writeln;
 end;
readln
end.