Ошибка в одномерном массиве - C++ Builder - Ответ 2806396

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 
 int max;
 
for (i=1;i<16;i++) {
      a[i]=StrToFloat(StringGrid1->Cells[i][1]);
      imax=1;
      max=a[1]; }
        for (i=2;i<16;i++)
        if (a[i]>max)
          {
            imax=i;
             max=a[i];
         }
 
    StringGrid1->Col=imax;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
 
 int min;
 
 for (i=1;i<16;i++)
      a[i]=StrToFloat(StringGrid1->Cells[i][1]);
  imin=1;
  min=a[1];
  for (i=2;i<16;i++)
    if (a[i]<min) {
 
      imin=i;
      min=a[i] ;
    }
 
    StringGrid1->Col=imin;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 temp= a[imin];
 a[imin]= a[imax];
 a[imax]= temp;
  for (i=1;i<16;i++)
     StringGrid1->Cells[i][1]=FloatToStr(a[i]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 randomize;
         for (i=1;i<16;i++)
          {
            a[i]=random(100);
              StringGrid1->Cells[i][1]=IntToStr(a[i]);   }
}
//---------------------------------------------------------------------------

int imin,imax,temp,i;
int a[15];