Найти максимальный по модулю элемент матрицы

#pragma hdrstop
#pragma argsused
 
#include <tchar.h>
#include <stdio.h>
#include <iostream.h>
#include <math.h>
 
// n- число строк, m- число стобцов, s- номер стобца макс. элемента,
// t- число строки макс. элемента, fabs() функция из math.h вычисляет абсолютное
// значение числа типа double
 
int _tmain(int argc, _TCHAR* argv[]) {
    double **a, *p, h;
    int n, m, i, j, k;
    cout << "Nahodim max element matricy MxN" << endl;
    cout << "-------------------------------" << endl;
    cout << "Vvedite kol-vo stolbcov i strok:" << endl;
    cin >> m;
    n = m;
    cout << "Vvedite elementy matricy:" << endl;
    a = new double * [n];
    for (i = 0; i < n; i++)
        a[i] = new double[m];
    for (i = 0; i < n; i++)
        for (j = 0; j < m; j++)
            cin >> a[i][j];
    // ---------находим максимум------------------------------
    double l = fabs(a[0][0]);
    int s = 0, t = 0;
    for (i = 0; i < n; i++)
        for (j = 0; j < m; j++)
            if (fabs(a[i][j]) > l) {
                l = fabs(a[i][j]);
                t = i;
                s = j;
            }
    cout << "Maximalnii po moduly element matricy = ";
    cout << l << endl;
    cout << " " << endl;
 
    cout << "Vvedite nomer stroki(stolbca) na peresechenii kotoryh element:"
        << endl;
    cin >> k;
    cout << "Matrica prinyala vid:" << endl;
    cout << "-----------------------" << endl;
    // --------------переставляем строки и столбцы--------------------
    p = a[k - 1];
    a[k - 1] = a[t];
    a[t] = p;
    for (i = 0; i < n; i++) {
        h = a[i][k - 1];
        a[i][k - 1] = a[i][s];
        a[i][s] = h;
    }
    // --------------------вывод на экран матрицы----------------
    for (i = 0; i < n; i++) {
        for (j = 0; j < m; i++){
            cout << a[i][j] << " ";
        cout << endl;
        }
    }
    system("pause");
    return 0;
}