написать программу на языке паскаль

В процедуре ввести матрицу B(n, m), n<=20, m<=20, обеспечив контроль вводимой размерности. 

В функции подсчитать произведение отрицательных элементов главной диагонали. 

В процедуре подсчитать сумму положительных элементов побочной диагонали.

В главной программе записать найденные сумму и произведение в виде полей записи в типизированный файл.

Закольцевать программу для многократного прогона с дозаписью новых значений в созданный файл.

По завершении прогонов созданный файл распечатать в отдельной процедуре. 

Среда программирования лазарус, код должен быть написан самостоятельно без использования чата джпт.