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

[1Dima]

Плиз помогите доделать задачку! Как сделать привязку к главной диагонали?
Максимальный елемент (самый большой) на главной диагонали квадратной матрицы ,поменять местами с самым малым.

program golovna_diag;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const n=5;m=5;
var
  a: array [1..n, 1..m] of integer;
  max, min, i,j,min_i,min_j, max_i,max_j,p: integer;
begin
  randomize;
  writeln ('Nash masuv: ');
  writeln;
  for i:=1 to n do
  for j:=1 to m do
   begin
    a[i,j]:=random(100)-50;
    writeln('a[',i,',',j,']=',a[i,j]:4);
   end;
  min:=a[1,1];
  max:=a[1,1];
  for i:=1 to n do
   begin
    for j:=1 to m do
      begin
      if a[i,j]<min then
        begin
          min:=a[i,j];
          min_i:=i;
          min_j:=j;
        end;
      if a[i,j]>max then
        begin
          max:=a[i,j];
          max_i:=i;
          max_j:=j;
        end;
      end;
  end;
    begin
  p:=a[max_i,max_j];
  A[max_i,max_j]:= a[min_i,min_j];
  a[min_i,min_j]:= p;
  end;
  writeln;
  writeln ('Nasha matruza');
  writeln;
  for i:=1 to n do
    begin
     for j:=1 to n do
     write (a[i,j]:5);
     writeln;
    end;
    writeln;
    writeln('Min elem: ',min);
    writeln ('Max elem: ',max);
    readln
end.

[malinoff]

В цикл поиска индексов максимального и минимального элементов перед первым if добавить условие i = j.