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

[1Dima]

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

uses
  SysUtils;

const n=3;m=3;
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(10);
    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 i=j then
      if a[i,j]<min then
        begin
          min:=a[i,j];
          min_i:=i;
          min_j:=j;
        end;
        if i=j then
      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.

[GetMax]

Вместо

 min:=a[1,1]

пиши

min:=High(Integer)

, а вместо

 max:=a[1,1]

пиши

Max:=Low(Integer)

Будет работать каждый раз

[1Dima]

спасибо! очень помогли))