Даны три матрицы A(4,3), B(3,3), C(5,3). Используя процедуру, упорядочьте все матрицы по возрастанию элементов по столбцам

const
  nmax=5;
  
type
  tArr=array[1..nmax,1..nmax] of integer;
  
 
  
procedure init(var a: tArr; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
    for j:=1 to m do
      a[i,j]:=random(99)+1;
end;
 
procedure outPut(a: tArr; n,m: byte);
var i,j: byte;
begin
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  writeln;
end;
 
procedure change(var a: tArr; n,m: byte);
var 
  i,j,k: byte;
  tmp: integer;
begin
  for j:=1 to m do
    for k:=2 to n do
      for i:=n downto k do
        if a[i-1,j]>a[i,j] then
        begin
          tmp:=a[i-1,j];
          a[i-1,j]:=a[i,j];
          a[i,j]:=tmp;
        end;
end;
 
var 
  a,b,c: tArr;
  n,m: byte;
begin
  write('Введите размеры матрицы A (n, m): ');
  readln(n,m);
  init(a,n,m);
  writeln('  Исходная матрица:');
  outPut(a,n,m);
  change(a,n,m);
  writeln('  Упорядоченная матрица:');
  outPut(a,n,m);
  
  write('Введите размеры матрицы B (n, m): ');
  readln(n,m);
  init(b,n,m);
  writeln('  Исходная матрица:');
  outPut(b,n,m);
  change(b,n,m);
  writeln('  Упорядоченная матрица:');
  outPut(b,n,m);
  
  write('Введите размеры матрицы C (n, m): ');
  readln(n,m);
  init(c,n,m);
  writeln('  Исходная матрица:');
  outPut(c,n,m);
  change(c,n,m);
  writeln('  Упорядоченная матрица:');
  outPut(c,n,m);
end.