Упорядочить массив. Паскаль

[Nika_]

Задание: Дана квадратная матрица порядка n(n=5). Упорядочить строки данной матрицы по возрастанию сумм элементов строк.
Условие: Нужно разбить задачу на подзадачи, таким образом, чтобы решение каждой подзадачи описывалось процедурой, а основная программа состояла бы из последовательности вызова процедур.
Вот что получилось:

Uses crt;
Const n=5;
type vect = array [1..n] of real;
       mass = array [1..n] of vect;
procedure Input (var a: mass);
Var i,j: byte;
Begin
     for i:= 1 to n do
      for j:= 1 to n do
      read (a[i,j]);
End;
procedure Output (const a: mass);
Var i,j: byte;
Begin
     for i:= 1 to n do
     begin
      for j:= 1 to n do
      write (a[i,j]:3:2, ' ');
      writeln;
     end;
End;
procedure Sum_str (var a: mass; var sum: vect);
Var  i,j: byte;
Begin
     for i:= 1 to n do
     begin
      sum[i]:=0;
      for j:= 1 to n do
      sum[i]:=sum[i]+a[i,j];
     end;
End;
procedure Change (var a: mass; const sum: vect);
Var i,j,k: byte;
      t: real;
Begin
     for i:= 1 to n-1 do
     k:=i;
      for j:= i+1 to n do
      begin
      if sum[j]<sum[k] then
      k:=j;
      end;
       Begin
       for j:= 1 to n do
        t:= a[i,j];
        a[i,j]:= a[k,j];
        a[k,j]:=t;
       end;
      
End;
Var b: mass;
    s: vect;
Begin
Clrscr;
     Input(b);
     Sum_str(b,s);
     Change(b,s);
     Output(b);
End.

Проблема в том, что сортировка получатся не при всех тестовых данных.

[Stilet]

t:= a[i,j];
a[i,j]:= a[k,j];
a[k,j]:=t;

А где перенос сумм? Ты исходный массив меняешь, а массив сумм так и остается. И вообще у тебя там с бегинами и эндами намуляно...

procedure Change (var a: mass; const sum: vect);
Var i,j,k: byte;
      t: real;
Begin
     for i:= 1 to n do begin
      for j:= i to n do begin
       if sum[j]<sum[i] then begin
       for k:= 1 to n do begin
        t:= a[i,k];
        a[i,k]:= a[j,k];
        a[j,k]:=t;
       end;
       t:=sum[i]; sum[i]:=sum[j]; sum[j]:=t;
      end;
    end;
  end;
end;
      
End;

Вот так вот я думаю.

[Nika_]

ошибку выдает

[Nika_]

Сообщение от Stilet

А где перенос сумм? Ты исходный массив меняешь, а массив сумм так и остается. И вообще у тебя там с бегинами и эндами намуляно...

procedure Change (var a: mass; const sum: vect);
Var i,j,k: byte;
      t: real;
Begin
     for i:= 1 to n do begin
      for j:= i to n do begin
       if sum[j]<sum[i] then begin
       for k:= 1 to n do begin
        t:= a[i,k];
        a[i,k]:= a[j,k];
        a[j,k]:=t;
       end;
       t:=sum[i]; sum[i]:=sum[j]; sum[j]:=t;
      end;
    end;
  end;
end;
      
End;

Вот так вот я думаю.

разобралась,все нормально работает,спасибо огромное)))

[Stilet]

Ну и славненько )