Сформировать квадратную матрицу(Pascal)

[Макс7]

помогите сделать програмку в turbo pascal


Сформировать квадратную матрицу с елементами

 х(j,k)=random(17*i)-N,

где и номер варианта (№2), N-некоторое произвольное целое, j,k=1..5. Вывести на екран начальный и обработаный массивы в виде матрицы и все отрицательные елементы матрицы, которые находятся выше главной диагонали, поднести к квадрату и найти максимальный из них.



Буду благодарен за помощь!!!!!!!