const
 size_row = 5; { число строк }
 size_col = 6; { число столбцов }

type
 tvector = array[1 .. size_col] of integer;
 tmatrix = array[1 .. size_row] of tvector;

procedure bubble(var vec: tvector;
         n: integer);
var i, j, T: Integer;
begin
 for i := 1 to n do
   for j := n downto i+1 do
     if vec[Pred(j)] > vec[j] then { < } begin
       T := vec[Pred(j)]; vec[Pred(j)] := vec[j]; vec[j] := T
     end
end;

procedure print(var mx: tmatrix);
var i, j: integer;
begin
 for i := 1 to size_row do begin
   for j := 1 to size_col do
     write(mx[i][j]:4);
   writeln
 end;
end;

var
 mx: tmatrix;
 i, j: integer;
begin

 for i := 1 to size_row do
   for j := 1 to size_col do
     mx[i][j] := random(100);
 writeln('до сортировки'); print(mx);

 for i := 1 to size_row do
   bubble(mx[i], size_col);

 writeln('после сортировки'); print(mx);

end.

{...}
procedure bubble;
var flag:boolean;
   t:integer;
begin
  repeat
     flag:=true;
     for j:=1 to m-1 do
      if not(x[i,j]<=x[i,j+1]) then
       begin
          t:=x[i,j];
          x[i,j]:=x[i,j+1];
          x[i,j+1]:=t;
          flag:=false;
       end;
  until flag;
end;
{...}
for i:=1 to n do
    bubble;
{...}