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

[Aspire]

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

Задачка:

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

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

[volvo]

Функция для второго задания вот так будет выглядеть:

function get_max(var X; size: integer): integer;

  function ix(i, j: integer): integer;
  begin
    result := pred(i) * size + j;
  end;

  type
    arr = array[1 .. maxint div sizeof(integer)] of integer;
  var
    A: arr absolute X;
    i, j, max: integer;

begin
  max := A[ix(1, 1)];
  for i := 1 to size do
    for j := size - i + 1 to size do
      if max < A[ix(i, j)] then max := A[ix(i, j)];
  result := max;
end;

[Aspire]

volvo прошу просщения я просто не особо разбираюсь !!! а это решение задачи 2 ?