сортировка массива, метод пузырька Опции

[соня]

Помогите пожалуйста решить задачку...!!! Очень-очень надо!!!


Дана прямоугольная матрица размером mxn, содержащая вещественные числа. Определить сумму элементов в каждой строке матрицы. Упорядочить номера строк по возрастанию значений найденных сумм с помощью алгоритма сортировки методом пузырька. Вывести упорядоченный список номеров строк и соответствующих им сумм. (Матрицу заполнить случайными числами)

[соня]

вот программа:

const
max_ind=30;
var
    a:array[1..max_ind,1..max_ind] of integer;
    m,n,i,j,m1,i1,t:integer;
    s,k:array[1..max_ind] of integer;
    begin
    write('введите кол-во строк матрицы m='); 
    readln(n);
    write('введите кол-во столбцов матрицы n=');
    readln(m);
    randomize;
    for i:=1 to m do
       for j:=1 to n do
          begin
              a[i,j]:=random(100);
          end;
    for i:=1 to m do
       begin
          for j:=1 to n do
              write(a[i,j],'     ');
          writeln;
       end;
    for i:=1 to m do
        begin
            s[i]:=0;
                for j:=1 to n do
                    begin
                        s[i]:=s[i]+a[i,j];
                    end;
            writeln('сумма  ',s[i],' строки=',i);
        end;
    for i:=1 to n do
         k[i]:=i;
    readln;
    m1:=m;
    repeat
       i1:=0;
           for i:=1 to m1-1 do
               if s[i]>s[i+1]
                   then
                      begin
                          t:=s[i];
                          s[i]:=s[i+1];
                          s[i+1]:=t;
                          i1:=i;
                          t:=k[i];
                          k[i]:=k[i+1];
                          k[i+1]:=t;
                      end;
           m1:=i1;
    until i1=0;
    writeln('массив после сортировки');
    for i:=1 to m do
        writeln('сумма  ',s[i],' строки=',k[i]);
    readln;
end.

помогите найти ошибку...


заполняю случайными числами
96 31 83
8 28 9
64 64 63
59 26 38

сумма 210 строки=1
сумма 45 строки=2
сумма 191 строки=3
сумма 123 строки=4

массив после сортировки

сумма 45 строки=2
сумма 123 строки=0
сумма 191 строки=3
сумма 210 строки=1

почему у меня постоянно обнуляются последние и предпоследние номера строк??

[Malice]

Вот в этом месте вместо n надо m ?

for i:=1 to n do
k[i]:=i;