Создание модулей, процедурный тип, использовать нетипизированные параметры Опции

[Aspire]

Ребята кому не трудно и у кого есть свободное время уделите пару минут по братски,очень нужна помощь, просто не особо разбираюсь в паскале !!! Зарание огромное спасибо !!!

Задачка:

A) Разработать модуль, содержащий указанные процедуры и функции. Написать тестирующую программу.
Составить подпрограмму-процедуру MASSHTAB отыскания масштаба графического изображе-ния функции f(x) на экране размером B единиц растра по формуле M=B/max f(x).
В основной программе использовать процедуру для отыскания масштаба функций x*sin(x) и tg(x), при |x|< 1.
Б) Составить подпрограмму, определяющую максимальный элемент под побочной диагональю матрицы N*N и использовать ее для матрицы, состоящей из случайных чисел.

Указание. Использовать нетипизированные параметры.