Из матрицы n-го порядка получить матрицу порядка n-1, удалив из исходной матрицы указанные строки и столбцы

#include <vcl.h>
#include <stdlib.h>
#pragma hdrstop
 
#include "Matrix1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int n,m,**ary;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
n=3;m=3;
StringGrid1->RowCount=n+1;
StringGrid1->ColCount=m+1;
  for (int i=1; i<=n; i++){
    StringGrid1->Cells[i][0]="m="+IntToStr(i);
    StringGrid1->Cells[0][i]="n="+IntToStr(i);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{*
int imax=0,jmax=0,i,j,n=3,m=3;
 int** ary = new int*[n];
  for(i=0; i<n; i++) {
   ary[i] = new int[m];
   }
 
for(i=0; i<n; i++)
 for(j=0; j<m; j++)
  ary[i][j]=StrToInt(StringGrid1->Cells[j+1][i+1]);
 
for(i=0; i<n; i++)
 for(j=0; j<m; j++)
  if (ary[i][j]>ary[imax][jmax]){
   imax=i;
   jmax=j;
   }
 
for (i=0; i<n; i++)
  for (j=jmax; j<m-1; j++) ary[i][j]=ary[i][j+1];
   m--;
for (j=0; j<m; j++)
  for (i=imax; i<n-1; i++) ary[i][j]=ary[i+1][j];
   n--;
 
for(int i=0; i<StringGrid1->ColCount; i++)
  for(int j=0; j<StringGrid1->RowCount; j++)
   StringGrid1->Cells[j+1][i+1] = "";
 
for(int i=0; i<n; i++)
  for(int j=0; j<m; j++)
   StringGrid1->Cells[j+1][i+1] = IntToStr(ary[i][j]);
 
for (int i=0; i<n; i++)
  delete []ary[i];
    delete []ary;
}