Из матрицы размером n получить матрицу размером n-1 путем удаления строки и столбца на пересечении max элемент

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n,m;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  n=StrToInt(Edit1->Text);
  m=StrToInt(Edit2->Text);
  StringGrid1->RowCount=n;
  StringGrid1->ColCount=m;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  if (Edit1->Text=="") return;
  n=StrToInt(Edit1->Text);
  StringGrid1->RowCount=n;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
  if (Edit2->Text=="") return;
  m=StrToInt(Edit2->Text);
  StringGrid1->ColCount=m;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{  double **a;
int max1,max2;
 
 a=new double *[n]; 
 for (int i=0; i<n; i++)
    a[i]=new double [m+1];
 
 
 for (int i=0; i<n; i++)
   for (int j=0; j<m; j++)
     a[i][j]=StrToFloat(StringGrid1->Cells[j][i]);
 
     max1=0; max2=0;
 for (int i=0; i<n; i++)
 for (int j=0; j<m; j++)
 if (a[i][j]>=a[max1][max2])
 {
      max1=i; max2=j;
   }
 
 
 delete []a[i];
 delete []a; 
 a=NULL;
 
}
//---------------------------------------------------------------------------

a[i]=new double [m];

void DelRow(double** a, int Height, int Row)
{
    for(int y=Row+1; y<Height; y++)
        a[y-1]=a[y];
};
void DelCol(double** a, int Height, int Width, int Col)
{
    for(int y=0; y<Height; y++)
        for(int x=Col+1; x<Width; x++)
            a[y][x-1]=a[y][x];
};