n=StrToInt(Edit1->Text);
int i=0,a[10];
int pr=1;

 int max = 0;
 int min = 0;
 for(int i=0;i<n;i++)
		 {
		a[i]=StrToInt(StringGrid1->Cells[i][0]);
		 }
		for(i=0; i<n; i++){
	   if (abs(a[i])<max)
		{
			max=a[i] ;
			index_max=i;
			   }
			   Label2->Caption = "Число масимальное по модулю = "+IntToStr(max) ;