Написать программу на PascalABCNET

1. ВАЖНО!  написать программный код с 2-3 процедурами общего вида. Все процедуры должны иметь параметры.
2. Ввод и вывод не совмещать в одной процедуре с обработкой (поиском, обработкой, проверкой и т.д.).

Большая просьба уложиться в 25-35 минут

Само задание:

Даны две матрицы C (n x n) и D (m x m). Если количество нечетных элементов выше главной диагонали в матрице C больше, чем в матрице D, то вывести сообщение <>, иначе в матрице D найти количество столбцов, упорядоченных по возрастанию