Определить значения минимальных элементов матриц

Требуется помощь в написании кода по следующему заданию:

Составить процедуру для определения минимального элемента квадратной матрицы. Используя данную процедуру для двух заданных матриц С(n, n) и Р(m, m), определить значения минимальных элементов матриц. Если это значение отлично от нуля, то увеличить каждый элемент главной диагонали матрицы на модуль этого значения. В противном случае вывести сообщение «Элементы не равны нулю».