Turbo Pascal функции и процедуры SOS!!

[darik2011]

Всем привет) помогите)
Даны 2 матрицы размером mxn размерность каждой матрицы вводить с
клавиатуры, предусмотреть способы ввода элементов матриц с клавиатуры и
с помощью случайных чисел
вывести на экран исходную и результатирующую матрицу (всего 3 матрицы) а
также результат задание поварианту для выполнения задания использовать
процедуру и функцию
результатирующая матрица: взять за основу первую матрицу заменить
тотрицательные её элементы нулями, положительными единицами. функция
найти сумму нечетных элементов для каждой матрицы 1 и 2 матрица

вложил текст программы по ней нужно сделать
помогите пожалуйста)