Задача с матрицами, Матрицы, одномерный массив... Опции

[I am]

Спасайте! Срочно нужно решить задачу.
В матрице A(5x5) и матрице B(7x7) найти максимальный элемент из элементов, лежащих выше главной и выше побочной диаг., минимальный из элементов ниже главной и ниже побочной диаг., образовать из получившихся 2-х элементов одномерный массив. Все это надо сделать с помощью Procedure, причем сделать 2 варианта:
1)С помощью глобальных ; 2)С помощью формальных, фактических.
Ну, вот и все

[volvo]

Все это надо сделать с помощью Procedure

Вот твоя основная процедура:

procedure proc_matrix(var arr: array of integer;
          const n: integer; var max, min: integer);

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

var i, j: integer;
begin
  max := -maxint;
  for i := 1 To n div 2 + n mod 2 do
    for j := i To n - i + 1 do
      if max < arr[ix(i, j)] then max := arr[ix(i, j)];

  min := maxint;
  for i := n mod 2 + n div 2 to n do
    for j := n - i + 1 to i do
      if min > arr[ix(i, j)] then min := arr[ix(i, j)];
end;

(вариант с формальными/фактическими параметрами)

Сумеешь ее правильно вызвать для обеих матриц - будет работать...