Сортировка матрицы, построчно Опции

[Tay]

Ребят помогите решить задачу
Упорядочить по возрастанию элементы каждой строки матрицы размером n на m.

Разделено из темы: Задачи -> Диагонали матрицы

[volvo]

Ну ведь все готово, только соединить в одну программу...

Код

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.