Квадратная матрица
 

Дана квадратная матрица A(m*m).Получить матрицу B по правилу

Ai,j/S, i>j,
Bi,j= { 0, i=j,
S/Ai,j, i<j
где S-произвеление диаганальных элементов матрицы A.Значение m ввести с клавиатуры. Использовать не менее одной процедуры и не менее одной функции.
Алгоритм подпрограмм оформить отдельно, в месте вызова подпрограммы в основном алгоритме добавить блок «Вызов функции <название> (<фактические параметры>)».
Работу выполнить с использованием Pascal.
Помогите пожалуйста.

Помогите пожалуйста, очень нужно.