[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;

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

[MegaPiha]

Если массив динамический то надо предварительно определить его размер, функцией Setlength.

[Burka]

>Он выделяет это поле синим и все останавливается
Описание ошибки истинного программиста

Если массив двухмерный то нужно после ввода N, S "установить длинну массива"

Код:

SetLength(Mas,N,S)