Итак, первый шаг: ищем максимальный элемент на главной диагонали.
Code
max_v := a[1,1]; max_i := 1; For i := 2 to N do If (a[i,i] > max_v) then Begin max_i := i; max_v := a[i,i]; End;
Затем меняешь строку с номером max_i на строку с номером m. Как менять местами строки в матрице - смотри здесь Поддерживаю также проект сообщество молодых сисадминов