Создать модуль, с помощью которого можно вычислять сумму элементов матрицы, стоящих на главной диагонали. Pascal ABC. Ребят помогите =3

i=j    эл-ты на гл диагонали
i<j    эл-ты над гл диагональю
i>j      под гл диагональю
i+j=n+1    на побочной диагонали
i+j<n+1    над побоч диагональю
i+j>n+1     под побоч диагональю

Товарищь, я это знаю. Мне лень писать алгоритм. У меня Deus EX не пройденый стоит.