. Вычислить максимальный элемент из числа отрицательных элементов

[IceHeart111]

Количество элементов - 9 .Нужно решить её с помощью подпрограммы, всё работает, но есть одна проблема - выдаёт неверные результаты. Посмотрите может что-то не так :

const n=9;
typedef int mas[n];
int i;

int max_negative(mas a)
{
int max=0;
for(i=1;i<n;i++)
{
if( a[i] < 0 && ( max == 0 || a[i] > max ) )
max=a[i];
}
return max;
}

void __fastcall TForm1::StartClick(TObject *Sender)
{
mas a;
for(i=1;i<n;i++)
a[i]=StrToInt(Memo1->Lines->Strings[i]);
int max = max_negative(a);
Edit1->Text=IntToStr(max);

}