Найти разность максимального и минимального элементов массива

program mas;
const n=12;
var
A:array[1..n,1..n] of integer;
i,j,k,min,max,minn,maxx:integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=random(20)-5;
end;
end;
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  for j:=1 to n do
     begin
      write(A[i,j]:3);
     end;
     writeln;
   end;
 writeln;
   max := 1; min := 1;
   minn:=1; maxx:=1;
  for i := 1 to n do 
  begin
    for j:=2 to n do 
    begin
    //if A[i,j]<A[min,minn] then A[min,minn] := A[i,j];
    if A[i,j]>A[max,maxx] then A[max,maxx] := A[i,j];
  end;
  end;
 // k:=A[Max,maxx]-A[min,minn];
  writeln(A[min,minn],'  ',A[max,maxx]);
  writeln('Сумма максимального и минимального: ',k);
  end.

Uses Crt;
Const N = 12; // Ñòðîêè
      M = 12; //Ñòîëáöû
      
Var
    a:array [1..N,1..M] of integer;
    i,j:integer;
    max,min:integer; // Ìàêñèìóì, ìèíèìóì
    Raz:integer; // Ðàçíîñòü
    
    
    Begin
      //Çàïîëíåíèå ìàññèâà
      For i:=1 to N do
       For j:=1 to M do
        Begin
         a[i,j]:=Random(100);
         Writeln('a[',i,',',j,'] = ', a[i,j]);
        end;
        
       //Íàõîæäåíèå ìàêñèìàëüíîãî ýëåìåíòà
       max:= a[1,1];
        For i:=1 to N do
         For j:=1 to M do
          if a[i,j] > max then max:=a[i,j];
          Writeln('Ìàêñèìàëüíûé ýëåìåíò', max : 5);
          
        //Íàõîæäåíèå ìèíèìàëüíîãî ýëåìåíòà
        min:=a[1,1];
         For i:=1 to N do
          For j:=1 to M do
           if a[i,j] <  min then min:= a[i,j];
           Writeln('Ìèíèìàëüíûé ýëåìåíò', min:5);
           
        // Íàõîæäåíèå ðàçíîñòè
        Raz:= max - min;
        Writeln('Ðåçóëüòàò = ', Raz:2);
    end.