program n10;
uses crt;
const n=10;
var
 B:array[1..n, 1..n] of integer;
 i,j,k,m:byte;
begin
 clrscr;
 writeln('----исходная матрица B');
 randomize;
 For I:=1 to n do
  For j:=1 to n do
   b[i,j]:=Trunc(Random*90)+10;
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write (b[i,j],'  ');
   writeln;
  end;
 for i:=1 to n-1 do
  for j:=1 to n-i do {Именно n-i, а не n-1!!!}
   begin
    if b[1,j]>b[1,j+1] then {Обратите внимание - перебор по j, а не по i !!!}
     begin
      for m:=1 to n do
       begin
        k:=b[m,j];
        b[m,j]:=b[m,j+1];
        b[m,j+1]:=k;
       end;
     end;
   end;
 writeln('-----отсортированная матрица B  ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(b[i,j],'  ');
   writeln;
  end;
 readln;
end.