Найти наибольший и наименьший элементы прямоугольной матрицы

uses crt;
var a:array[1..100,1..100] of integer;
    i,j,n,m,min,max,x,tempi,tempii,tempj,tempjj:integer;
 begin
  ClrScr;
  Randomize;
  repeat
   Write('n=');
   Readln(n);
   Write('m=');
   Readln(m);
  until (n<m);
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
       a[i,j]:=-4+random(12);
       Write(a[i,j]:4);
      end;
     Writeln;
    end;
  min:=a[1,2];
  max:=a[1,1];
   for i:=1 to n do
    for j:=1 to n do
     begin
      if a[i,j]>max then
       begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j;
       end;
      if a[i,j]<min then
       begin
        min:=a[i,j];
        tempii:=i;
        tempjj:=j;
       end;
      end;
     x:=a[tempi,tempj];
     a[tempi,tempj]:=a[tempii,tempjj];
     a[tempii,tempjj]:=x;
    Writeln;
     for i:=1 to n do
      begin
       for j:=1 to m do
        begin
         Write(a[i,j]:4);
        end;
       Writeln;
      end;
   Writeln;
   Writeln('Минимальный ',min);
   Writeln('Максимальный ',max);
   Readln;
  end.