Сортировка столбцов матрицы по убыванию

uses
  crt;
const
  nmax=50;
type
  mas=array[1..nmax,1..nmax] of integer;
var
  a:mas;
  i,j,n,m,imin,jmin,tmp,k:integer;
begin
  randomize;
  repeat
    write('Skolko strok:');
    readln(n);
    write('Skolko stolbtsov:');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  for i:=1 to n do
    for j:=1 to m do
      begin
        textcolor(lightgray);
        a[i,j]:=random(90);
        write(a[i,j]:3);
        if j=m then
          writeln;
      end;
  writeln;
  imin:=1;jmin:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<a[imin,jmin] then
        begin
          imin:=i;
          jmin:=j;
        end;
  j:=jmin;
  for i:=1 to n-1 do
    for k:=i+1 to n do
      if a[i,j]>a[k,j] then
        begin
          tmp:=a[i,j];
          a[i,j]:=a[k,j];
          a[k,j]:=tmp;
        end;    
  for i:=1 to n do
    for j:=1 to m do
      begin
        if j=jmin then
          begin
            textcolor(lightred);
            write(a[i,j]:3);
          end
        else
          begin
            textcolor(lightgray);
            write(a[i,j]:3);
          end;
        if j=m then 
          writeln;
      end;
end.