Нахождение определителя матрицы

[La`Fleur]

Доброго времени суток!!! Помогите, не могу написать программу нахождения определителя, следующим методом:
- обнулить элементы, находящиеся ниже главной диагонали;(i>j)
- перемножить элементы находящиеся на главной диагонали.(Mas_A[i][i])

Начало программы:


n_A=Edit1->Text.ToInt();
m_A=Edit2->Text.ToInt();

StringGrid1->RowCount=n_A+1;
StringGrid1->ColCount=m_A+1;

int **Mas_A= new int *[n_A];
for(int i=0;i<n_A; i++) Mas_A[i]= new int [m_A];

for (int i=0;i<n_A;i++)
{
for (int j=0;j<m_A;j++)
{
Mas_A[i][j]=StrToInt(StringGrid1->Cells[j+1][i+1]);
}
}