Сортировка элементов строк / столбцов двумерного массива

program p;
uses crt;
const n=4; m=4;
var
a:array[1..n,1..m] of integer;
b:array[1..500] of integer;
i,j,f,sumdig,imax,max,tmp,min,sum,x,y,s,x1,y1,k,summ2,pff,buf,k2:integer;
begin
clrscr;
randomize;
 
write ('Ввод пределов ДСЧ'); readln (x1,y1);
    For i:=1 to n do
     For j:=1 to m do
      Begin
        a[i,j]:=random(y1-x1+1)+x1;          {Заполнение массива}
      End;
 
writeln ('Массив: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:6);               {Вывод массива}
writeln;
end;
 
 
    for i := 1 to n do
         for j := 1 to m - 1 do
             for k2 := j + 1 to m do
                 if (a[i, j] > a[i, k2]) then        {Сортировка элементов строк по возрастанию}
                 begin
                      buf := a[i, j];
                      a[i, j] := a[i, k2];
                      a[i, k2] := buf;
                 end;
     writeln('Отсортированные элементы строк:');
     for i := 1 to n do
     begin
          for j := 1 to m do
              write(a[i, j]:3);                     {Вывод отсортированного массива}
          writeln;
     end;

program p;
uses crt;
const n=4; m=4;
var
a:array[1..n,1..m] of integer;
b:array[1..500] of integer;
i,j,f,sumdig,imax,max,tmp,min,sum,x,y,s,x1,y1,k,summ2,pff,buf,k2:integer;
begin
clrscr;
randomize;
writeln ('Ввод пределов ДСЧ');
readln (x1,y1);
writeln ('Массив: ');
For i:=1 to n do
 begin
  For j:=1 to m do
   Begin
    a[i,j]:=random(y1-x1+1)+x1;          {Заполнение массива}
    write(a[i,j]:6);               {Вывод массива}
   End;
  writeln;
 end;
for i := 1 to n do
for j := 1 to m - 1 do
for k := j + 1 to m do
if (a[i, j] > a[i, k]) then        {Сортировка элементов строк по возрастанию}
 begin
  buf := a[i, j];
  a[i, j] := a[i, k];
  a[i, k] := buf;
 end;
writeln('Отсортированные элементы строк:');
for i := 1 to n do
 begin
  for j := 1 to m do
  write(a[i, j]:6);                     {Вывод отсортированного массива}
  writeln;
 end;
{Сортировка столбцов по убыванию}
for j:=1 to m do
for i:=1 to n-1 do
for k:=i+1 to n do
if a[i,j]<a[k,j] then
 begin
  buf := a[i, j];
  a[i, j] := a[k, j];
  a[k, j] := buf;
 end;
writeln('Отсортированные элементы столбцов:');
for i := 1 to n do
 begin
  for j := 1 to m do
  write(a[i, j]:6);                     {Вывод отсортированного массива}
  writeln;
 end;
end.