Не пойму, где ошибка

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <math.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
int n,m,i;
n=StrToInt(Edit1->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit1->Text = "10";
}
StringGrid1->RowCount=n+1;
StringGrid2->ColCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[i][0]=i;
StringGrid2->Cells[i][0]=i;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
 int n,m;
//Proverka
n=StrToInt(Edit2->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit2->Text = "10";
}
StringGrid1->ColCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[0][i]=i;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int j,i,n,m;
Edit1->Text=IntToStr(10);
Edit2->Text=IntToStr(10);
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->Cells[0][0] = "ГЊГ*òðèöГ*";
StringGrid2->Cells[0][0] = "B";
for(i=1; i<n+1;i++)
{
for(j=1; j<m+1;j++)
StringGrid1->Cells[j][i]=IntToStr(random(21)-10);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int n, m, i, j;
 int **a, *b;
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
a=new int *[n];
for(i=0; i<n; i++)
       a[i]=new int[m];
b=new int [n];
for(i=0; i<n; i=i+1)
       for(j=0; j<m; j=j+1){
               a[i][j]=StrToInt(StringGrid1->Cells[j+1][i+1]); }
 
for(i=0; i<n; i=i+1){
       for(j=0; j<m; j=j+1){
               if(a[i][j]>a[i][j+1]){
                       b[i]=1;
                       }
               else{
                       b[i]=0;
                       break;
                       }
               }
 
       StringGrid2->Cells[i+1][1]=IntToStr(b[i]);
}
 
delete []a;
delete []b;
}
//---------------------------------------------------------------------------

b[i]=1;
for(j=0; j<m-1; j=j+1){
 if(a[i][j]<a[i][j+1]){ b[i]=0; }
}