В матрице найти минимальный элемент и поставить его на главную диагональ - QBasic

Формулировка задачи:

в матрице N*M найти минимальный элемент ,поставить его на главную диагональ, на главной диагонали найти среднее положительное элементов. Подскажите пожалуйста как решить первую часть задания, не знаю как элементы переставлять местами.

Решение задачи: «В матрице найти минимальный элемент и поставить его на главную диагональ»

Листинг программы

SWAP a[i,j],b[i,i]

Объяснение кода листинга программы

Задаются размеры матрицы n и m (предполагаем, что это делается до начала выполнения кода)
В цикле for i%=1 to n% выполняется следующее:
В цикле for j%=1 to m% выполняется следующее:
Вычисляется значение выражения a[i,j] (предполагаем, что это значение находится в переменной a)
Вычисляется значение выражения b[i,i] (предполагаем, что это значение находится в переменной b)
Производится обмен значений переменных a и b (команда SWAP a[i,j],b[i,i])
Цикл j% завершается
Цикл i% завершается