Вывести информацию об ошибке, если в массиве все элементы положительные или нули

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n = 4,i,l;
double A[100],sum;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
           randomize();         // Изменение начального адреса для random()
        Edit1->Text=IntToStr(n);
        StringGrid1->ColCount=n;
        for(int i=0; i<n;i++)       // Заполнение массива А случайными числами
                StringGrid1->Cells[i][0] = IntToStr(random(21)-10);  // задаем максимальное количество ячеек в массиве 10
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Label3->Caption="Сумма равна=";
  n=StrToInt(Edit1->Text);
        if(n>10)
        {
                ShowMessage("Максимальное количество 10!");
                n=10;
                Edit1->Text="10";
        }
        if(n<1)
        {
                ShowMessage("Минимальное количество 1!");
                n=1;
                Edit1->Text="1";
        }
 
        StringGrid1->ColCount=n;
        for(int i=0; i<n;i++)
                StringGrid1->Cells[i][0]=IntToStr(random(21)-10);   //задаем что,в массиве целые числа до 10
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   int f = -1;  //При первом попадании положительного элемента значение присваиваем f
for (int i=0; i<n; i++)
{
  A[i]=StrToFloat(StringGrid1->Cells[i][0]);
 
  if (A[i] > 0)
  {
    if (f < 0)
      f = i;
                                                                           ;
 
 
  }
}
sum=0;
for (int i=n-1; i>=0, A[i]>=0; i--)
    sum += A[i];
 
  if (f < 0)        // идет проверка, что найден первый элемент (f), иначе ругаемcz
    Label3->Caption = "Нет положительных";
 
    else
   Label3->Caption="Сумма равна="+FloatToStr(sum);
 
 
}
//---------------------------------------------------------------------------

if (A[i] > 0)
  {
    if (f < 0)
      f = i;