Turbo Pascal помогите решить задачу.

найти сумму наибольшей диагонали матрицы С
матрица С=a*b
матрица a[5*8]
матрица b[8*5]
а (i,j)=i^2+j
b(i,j)=j^2-i
решить нужно через процедуру и модуль