Ошибки в задаче на особые элементы

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
    : TForm(Owner)
{
}
const nmax=10;
typedef double mas [nmax][nmax];
int n,m;
//---------------------------------------------------------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
StringGrid1->ColCount=m+1;
StringGrid1->RowCount=n+1;
StringGrid1->Cells[0][0]="массив";
for(int i=1;i<=m;i++)
{
    StringGrid1->Cells[i][0]="k="+IntToStr(i);
}
for(int j=1;j<=n;j++)
{
    StringGrid1->Cells[0][j]="i="+IntToStr(j);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=m+1;
StringGrid1->RowCount=n+1;
StringGrid1->Cells[0][0]="массив";
for(int i=1;i<=m;i++)
{
    StringGrid1->Cells[i][0]="k="+IntToStr(i);
}
for(int j=1;j<=n;j++)
{
    StringGrid1->Cells[0][j]="i="+IntToStr(j);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
mas a;
int i,j,l,k;
for(i=0; i<n; i++)
for(j=0; j<m; j++)
a[i][j]=StrToFloat(StringGrid1->Cells[i+1][j+1]);
double s=0;
bool bl;
for (i=0; i<n; i++)
{
for (j=1; j<m-1; j++)
bl=true;
for (k=j-1; k>-1; k--)
if (a[i][k]<a[i][j])
{
bl=false;
 break;
}
if (bl)
for (l=j+1; l<m; l++)
if (a[i][l]>a[i][j])
{
bl=false;
break;
}
if (bl) s++;
Label5->Caption=s;
}
}
//---------------------------------------------------------------------------