Помогите плз с лабораторной, завтра нужно сдать

задачку сделать с использованием функций ,
турбо паскаль

Заданы 2 двумерных массива А(М,М) и В(К,К). Переписать в один одномерный массив элементы главной и побочной диагонали массива А , а в другой одномерный массив элементы главной и побочной диагоналей массива В. Использовать подпрограммы.