После ввода переменной и нажатия на кнопку выдает ошибку

#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int n,i,j,imax,jmax,max,a[100][100];
n=StrToInt(Edit1->Text);
StringGrid1->ColCount=n;
StringGrid1->RowCount=n;
StringGrid1->ColCount=n-1;
StringGrid1->RowCount=n-1;
for (j=0; i<n-1; j++)
 {
  for (i=0; j<n-1; i++)
  {
   a[i][j]=random(100);
   StringGrid1->Cells[j][i]=FloatToStr(a[i][j]);
  }
 }
max=abs(a[0][0]);imax=0;jmax=0;
for (i=0;i<n-1;i++)
{
  for(j=0;j<n-1;i++)
  {
  if (a[i][j]>max) {max=a[i][j];;imax=i;jmax=j;}
  }
}
Memo1->Lines->Add("Максимальный по модулю элемент ="+FloatToStr(max)+"в строке № "+IntToStr(imax+1)+"в столбце №"+IntToStr(jmax+1));
 
for (j=0;j<n-1;j++)
{
  for(i=imax;i<n-2;i++)
  {
  a[i][j]=a[i+1][j];
  }
}
for(i=0;i<n-2;i++)
{
for (j=0;j<n-2;j++)
{
StringGrid2->Cells[j][i]=FloatToStr(a[i][j]);
}
}
}