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

[соня]

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


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

[соня]

const
  max_ind=20
var
  a:array[1..max_ind,1..max_ind] of integer;
  s,m,n,i,j:integer;
  sum:array[1.. ? ] or integer;           {здесь постоянно выдает ошибку}
  ind:array[1..max_ind] of integer;
  c:integer;            {переменная для промежуточного хранения}
  i1:integer;           {индекс последнего обмена}
begin
 write('Введите кол-во строк матрицы (m<=',max_ind,') m=');
 readln(m);
 write('Введите кол-во столбцов матрицы (n<=',max_ind,') n=');
 readln(n);
 for i:=1 to m do
     for j:=1 to n do 
        write('a[',i,',',j,']='); 
        readln(a[i,j]); 
         end;  
s:=0;
   for i:=1 to m do 
     begin  
      for j:=1 to n do  
          begin
               s:=a[i,j]+s;  
              sum[i]:=s;       {создаю массив из суммы} 
               ind[i]:=i;            {массив из соответствующих сумме номеров строк}
          end; 

????????

а дальше я не знаю....
пытаюсь отсортировать, но либо ошибки либо не сортирует...

М

не забывай использовать теги мисс_граффити