Расположить столбцы матрицы по росту элементов второй строки - Pascal ABC

const n=5;m=8;
type mas=array[1..n,1..m] of integer;
var a:mas;
procedure vv_mas(var x:mas;s:string;f:boolean);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if f then x[i,j]:=random(10);
     write(x[i,j]:3)
    end;
   writeln
  end
end;
procedure sort(var x:mas;ii:integer);
var i,j,k,max,mm,tmp:integer;
begin
 mm:=m;
 while mm>1 do
  begin
   max:=1;
   for j:=1 to mm do if x[ii,j]>x[ii,max] then max:=j;
   if max<>mm
    then for k:=1 to n do
          begin
           tmp:=x[k,max];
           x[k,max]:=x[k,mm];
           x[k,mm]:=tmp
          end;
   dec(mm)
  end
end;
begin
 vv_mas(a,'A:',true);
 sort(a,2);
 vv_mas(a,'A'':',false)
end.