Помогите, пожалуйста, решить задачу на Delphi 7

Задана матрица размером пхт. Найти максимальный по модулю элемент матрицы. Переставить строки и столбцы матрицы таким образом, чтобы максимальный по модулю элемент был расположен на пересечении к-й строки и к-то столбца.