Delphi про массивы!!!

[boycoffka]

Ребята! Завтра уже сдаваться, а пару задач не могу сделать!!! Буду очень благодарна! Желательно побыстрее, спать осталось всего ничего(
Вот одна задача:
Дан одномерный массив от а1 до аN, который состоит из вещественных чисел. Найти максимальное значение всех отрицательных чисел, хранимых в данном массиве.

[ImmortalAlexSan]

Var
 i:integer;
 sum:double;
 masV:array [a1..aN] of double;
Begin
 sum:=0;
 For i:=a1 to aN do
  If masV[i]<0 then
  sum:=sum+masV[i];
 sum:=abs(sum);
end;