Двумерный массив

[Flaik]

Здравствуйте! Помоги пожалуйста решить задачу.

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

[[CODER]]

for i:=1 to n do
  for j:=1 to n do 
     if i<j then 
         if (a[i,j] mod 2) = 0 and a[i,j]>max then begin
              max:=a[i,j];
              maxi:=i;
              maxj:=j;
         end;
     if i>j then
         if (a[i,j] mod 2) = 1 and a[i,j]<max then begin
              min:=a[i,j];
              mini:=i;
              minj:=j;
         end;

ну как-то так.

[Flaik]

for i:=1 to n do
for j:=1 to n do
if i<j then
if (a[i,j] mod 2) = 0 and a[i,j]>max then begin
max:=a[i,j];
maxi:=i;
maxj:=j;
end;
if i>j then
if (a[i,j] mod 2) = 1 and a[i,j]<max then begin
min:=a[i,j];
mini:=i;
minj:=j;
end;

пишет ошибочный спецификатор

[[CODER]]

Сообщение от Flaik

пишет ошибочный спецификатор

Код неполный, необходимо объявить и инициализировать все переменные.