Приложение закрывается при сортировке массива (Builder6)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sEdit"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::sButton1Click(TObject *Sender)
{
int N;
N=StrToInt(sEdit1->Text);
StringGrid1->ColCount=N;
StringGrid2->ColCount=N;
sButton1->Visible=true;
sButton2->Visible=true;
if(N>=15){StringGrid1->DefaultColWidth=16;
StringGrid1->DefaultRowHeight=12;}
if(N>=15){StringGrid2->DefaultColWidth=16;
StringGrid1->DefaultRowHeight=12;}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::sButton2Click(TObject *Sender)
{
int N, i, tmp;
int *mas=new int[N];
N=StrToInt(sEdit1->Text);
for(i=0;i<N;i++)
mas[i]=StrToInt(StringGrid1->Cells[i][0]);
for( i = 0; i < N-1; i++)
    {
        for(int j = 0; j < N-1; j++)
        {
            if (mas[j + 1] < mas[j])
            {
                tmp = mas[j + 1];
                mas[j + 1] = mas[j];
                mas[j] = tmp;
            }
        }
    }
for (i=0; i<N; i++)
StringGrid2->Cells[i]=mas[i];
}
//---------------------------------------------------------------------------

int *mas=new int[N];