Дан двумерный массив.Найти наибольший отрицательный элемент выше побочной диагонали и наименьший положите

[red-white]

Помогите написать программу!!!
Дан двумерный массив.Найти наибольший отрицательный элемент выше побочной диагонали и наименьший положительный элемент ниже побочной диагонали с указанием их индексов.Создать новый массив,в котором найденные элементы поменяются местами.

[Stilet]

Предлагаю:

MODULE Массив;
IMPORT StdLog,ObxRandom;
VAR 
 maxi,maxj,mini,minj:INTEGER;
 a:ARRAY(5) OF ARRAY(5) OF INTEGER;

PROCEDURE ПолучитьМаксимум(i,j:INTEGER);
BEGIN
 IF (j>i)&(a[i,j]>a[maxi,maxj]) THEN
  maxi:=i;maxj:=j;
 END;
END ПолучитьМаксимум;

PROCEDURE ПолучитьМинимум(i,j:INTEGER);
BEGIN
 IF (j<i)&(a[i,j]<a[mini,minj]) THEN
  mini:=i;minj:=j;
 END;
END ПолучитьМинимум;


PROCEDURE do*;
VAR i,j:INTEGER;
BEGIN
 StdLog.Clear;
 maxi:=0;mini:=0;maxj:=0;minj:=0;
 FOR i:=0 TO LEN(a)-1 DO
  FOR j:=0 TO LEN(a[i])-1 DO
   a[i,j]:=SHORT(ENTIER(ObxRandom.Uniform()*100));
   StdLog.Int(a[i,j]);StdLog.Tab;
   ПолучитьМаксимум(i,j);
   ПолучитьМинимум(i,j);
  END;StdLog.Ln;
 END;StdLog.Ln;

StdLog.String('Максимум: a[');
 StdLog.Int(maxi);StdLog.String(',');StdLog.Int(maxj);
 StdLog.String(']=');StdLog.Int(a[maxi,maxj]);
StdLog.Ln;
StdLog.String('Минимум: a[');
 StdLog.Int(mini);StdLog.String(',');StdLog.Int(minj);
 StdLog.String(']=');StdLog.Int(a[mini,minj]);

END do;

END Массив.
Массив.do;

Результатт:

21 87 13 7 90
9 10 11 4 16
40 14 82 96 20
93 28 31 14 14
73 95 0 77 24

Максимум: a[ 2, 3]= 96
Минимум: a[ 4, 2]= 0

Насчет создания нового массива это тебе домашнее задание