Сортировка матрицы

[infernal110]

Добрый вечер форумчане! у меня возникла такая проблема, не могу отсортировать в матрице строки в порядке возрастания,метод пузырька к сожалению не знаю, помогите сделать сортировку,вот сама программа:
Program matruca;
Uses crt;
Var
m:array[1..10,1..10] of Real;
v:array[1..10,1..10] of Real;
ms:array[1..10,1..10] of Integer;
n,err,tmp,max,k,i,j:Integer;
sum:real;
Ch:Char;
Begin
Repeat
Repeat
Write('Vvedite razmernostb:');
{$I-}
Readln(n);
{$I+}
For i:=1 to n do
For j:=1 to n do
Begin
Write('Vvedite el-mentbl matrucbl: m[',i,',',j,']');
{$I-}
ReadLn(m[i,j]);
{$I+}
End;
WriteLn;
For i:=1 to n do
Begin
For j:=1 to n do
Write(m[i,j]:5,' ');
WriteLn;
End;
WriteLn;
sum:=0;
For i:=1 to n do
Begin
v[i]:=m[i,i];
Write(v[i]:5:2,' ');
sum:=sum+v;
End;
WriteLn;
WriteLn('Otvet: ', sum:5:2);
ReadLn;
WriteLn('Xotute povtorutb? 1-da/2-net');
ReadLn(Ch);
Until Ch<>'1';
End.

[BDA]

Во-первых, укажите место, где должна быть сортировка.
Во-вторых, что значит "упорядочить строки по возрастанию"? В каждой строке упорядочить элементы по возрастанию, или все строки матрицы? Но как можно сравнить всю строку? Четче опишите критерий сортировки (например, какая строка больше? 1 2 3 или 4 0 0?).

[infernal110]

Сортировка должна быть на месте где выводится матрица на экран, нужно в каждой строке матрицы отсортировать ее элементы по возрастанию

[BDA]

Закомментировал то, что у меня не работает (как вы так сумму считаете?):

program matruca;

uses
  crt;

var
  m: array[1..10, 1..10] of Real;
  v: array[1..10, 1..10] of Real;
  ms: array[1..10, 1..10] of Integer;
  n, err, tmp, max, k, i, j, q: Integer;
  t: real;
  sum: real;
  Ch: Char;

begin
  repeat
    Write('Vvedite razmernostb: ');
    {$I-}
    Readln(n);
    {$I+}
    for i := 1 to n do
      for j := 1 to n do
      begin
        Write('Vvedite el-mentbl matrucbl: m[', i, ',', j, ']: ');
        {$I-}
        ReadLn(m[i, j]);
        {$I+}
      end;
    WriteLn;
    for i := 1 to n do
    begin
      for j := 1 to n do
        Write(m[i, j]:5, ' ');
      WriteLn;
    end;
    WriteLn;
    
    for i := 1 to n do {сортировка}
      for j := 1 to n - 1 do
        for q := j + 1 to n do
          if m[i, j] > m[i, q] then
          begin
            t := m[i, j];
            m[i, j] := m[i, q];
            m[i, q] := t;
          end;
    
    for i := 1 to n do
    begin
      for j := 1 to n do
        Write(m[i, j]:5, ' ');
      WriteLn;
    end;
    WriteLn;
    {sum := 0;
    for i := 1 to n do
    begin
      v[i] := m[i, i];
      Write(v[i]:5:2, ' ');
      sum := sum + v;
    end;
    WriteLn;
    WriteLn('Otvet: ', sum:5:2);}
    ReadLn;
    WriteLn('Xotute povtorutb? 1-da/2-net');
    ReadLn(Ch);
  until Ch <> '1';
end.

[infernal110]

Огромное спасибо