Оформить в виде подпрограмм-процедур в программе Pascal:

Дана матрица действительных чисел M×N.Найти матрицу того же порядка, в которой элемент равен 1, если соответствующий ему элемент начальной матрицы больше, чем элемент, расположенный в его строке на главной диагонали, и равен 0 в обратном случае.