Массивы. Строка с наименьшей суммой

[Gsk]

Здравствуйте!
Мне нужно составить функцию, которая будет находить строку с наименьшей суммой.
Динамический массив Mas(N,S) N, S задаются вручную, элементы массива тоже.

Попробовал написать функцию сам:

function MinSum(Mas:T2Ar_Real): Real;
var i,j : integer;  Massiv: T_Mxy ;
Summa, Min: Real;
begin
summa:=0;
for i:=0 to S-1 do
begin
for j:=0 to N-1 do Summa:=Summa+Mas[i,j];
Massiv[i]:=Summa; // Ошибка тут почему то!!!! =(( Он выделяет это поле синим и все останавливается
end;
Min:=Massiv[0];
for i:=0 to S-1 do
if Min < Massiv[i] then Min:=Massiv[i];
MinSum:=Min;
end;

Помогите пожалуйста! Исправьте или предложите свой вариант, если не трудно! Заранее спасибо!

[alexBlack]

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

function MinSum(Mas:T2Ar_Real): Real;   
var i,j : integer;  
     Summa, Min: Real;   
begin  
    min := 999999999; // максимально-возможное значение
    for i:=0 to S-1 do begin  

        summa:=0;   
        for j:=0 to N-1 do Summa:=Summa+Mas[i,j];   

        if Summa < min then min := Summa; 
    end;   
    MinSum := min
end;

Кроме того Вам нужно "находить строку с наименьшей суммой", а не самУ сумму. т.е функция должна возвращать номер строки. с
этим, надеюсь, справитесь.

[Gsk]

2alexBlack
Спасибо большое! Дальше сам справлюсь.