Дана матрица размером M*N. Упорядочить ее строки по возрастанию элементов k-го столбца.

uses crt;
const n=5; m=4;
var a:array[1..n,1..m]of integer;
i,j,k:integer;
 
procedure swap(n1,n2:integer);
var j,b:integer;
begin
 for j:=1 to m do
 begin
  b:=a[n1,j];
  a[n1,j]:=a[n2,j];
  a[n2,j]:=b;
 end;
end;
 
begin
 clrscr;
 randomize;
 writeln('Исходный массив');
 for i:=1 to n do
 begin 
  for j:=1 to m do
  begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
  end;
  writeln;
 end;
 
 write('Введите K -> ');
 readln(k);
 for i:=1 to n do
 for j:=1 to n-1 do if a[j,k]>a[j+1,k] then swap(j,j+1);
 
 for i:=1 to n do
 begin
  for j:=1 to m do write(a[i,j]:3);
  writeln;
 end;
 readln;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    n,m,i,j,k,l:byte;
    x:real;
begin
clrscr;
randomize;
repeat
write('Количество строк от 1 до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 1 до ',nmax,'=');
readln(n);
until n in [1..nmax];
writeln;
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  writeln;
 end;
writeln;
repeat
write('Номер столбца от 1 до ',n,' k=');
readln(k);
until k in [1..n];
{перестановка строк по возрастанию элементов столбца К}
for i:=1 to m-1 do
for l:=i+1 to m do
if a[i,k]>a[l,k] then
for j:=1 to n do
 begin
  x:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=x;
 end;
writeln;
writeln('Строки по возрастанию элементов столбца ',k);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
readln
end.