В каждом столбце матрици переставаить эл-ты так чтобы вначале вместе шла группа эл-тов больше первого эл-та столбца...

const
  nmax=9;
type
  realMatrix=array[1..nmax,1..nmax] of real;
var
  a:realMatrix;
  i,j,g,k,n,m:integer;
  z,tmp:real;
begin
  randomize;
  repeat
    write('Rows <10 =');
    readln(n);
    write('Cols <10 =');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  writeln('Input matrix');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random*5;
          write(a[i,j]:7:2);
        end;
      writeln;
    end;
  writeln;
  for j:=1 to m do
    begin
      k:=0;
      tmp:=a[1,j];
      for i:=2 to n do
        if a[i,j]>tmp then
          begin
            z:=a[i,j];
            inc(k);
            for g:=i downto k+1 do
              a[g,j]:=a[g-1,j];
            a[k,j]:=z;
          end;
    end;
  writeln('Output matrix');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:7:2);
      writeln;
    end;
end.

const
  nmax=9;
type
  realMatrix=array[1..nmax,1..nmax] of real;
var
  a:realMatrix;
  i,j,g,k,n,m:integer;
  tmp:real;
begin
  randomize;
  repeat
    write('Rows <10 =');
    readln(n);
    write('Cols <10 =');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  writeln('Input matrix');
  for i:=1 to n do
    begin
      for j:=1 to m do
        begin
          a[i,j]:=random*5;
          write(a[i,j]:7:2);
        end;
      writeln;
    end;
  writeln;
  for j:=1 to m do
    begin
      k:=n;      
      for i:=n downto 1 do
        if a[i,j]<=a[1,j] then
          begin
            tmp:=a[i,j];
            for g:=i to k-1 do
              a[g,j]:=a[g+1,j];
            a[k,j]:=tmp;
            k:=k-1;
          end;
    end;
  writeln('Output matrix');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:7:2);
      writeln;
    end;
end.