Найти минимальный элемент массива, и умножить на него все отрицательные элементы, стоящие левее этого минимального

int A[16],i, max,polchislo,b;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
b=0;
for(i=0; i<16; i++)
{
A[i]=StrToInt(Memo1->Lines->Strings[i]);
if((A[i]>0)||(A[i]==0))
{
polchislo = A[i]; //положительное число
if(i!=0)
{
max = i-1;
}
else
{
max = i;
}
break;
}
}
for(int a=0; a<=max;a++)
{
if(A[a]<b)
{
b=A[a];
}
}
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int A[16],i,min,b;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 min = 0;
 for(i=0; i<16; i++)
 {
  A[i]=StrToInt(Memo1->Lines->Strings[i]);
  if(A[i]<min)
    {
     min = A[i];
     b = i;
    }
 }
 for(int c = 0; c < b; c++)
 {
  Memo1->Lines->Strings[c] = Memo1->Lines->Strings[c] + " " + IntToStr(StrToInt(Memo1->Lines->Strings[c]) * min);
 }
 
}