[ART]

2. Если я правильно понял

Код не проверял.

Код:

type
 TRow = array of integer;

 TMatrix = array of TRow;

procedure SortRow(var Row: TRow);
var
 i, k, temp: integer;
 f: Boolean;
begin
 k := 1;
 repeat
  for i := 0 to High(Row) - k do
   if Row[i] > Row[i + 1] then begin
    temp   := Row[i];
    Row[i] := Row[i + 1];
    Row[i + 1] := temp;
   end;
  k := k + 1;
 until k = High(Row) - 1;
end;

var
 i: integer;
 M: TMatrix;
begin
 ...
 for i := 0 to High(M) do
  SortRow(M[i]);
 ...
end.