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

program z;
var i,j,min,max,n,m,s:integer;
a:array [1..100,1..100] of integer;
begin
     write('Ââåäèòå ðàçìåðíîñòü: ');
     readln(n);
     randomize;
     for i:=1 to n do
         for j:=1 to n do
             a[i,j]:=trunc((11-4)*random+4);
     i:=1; j:=n;
     repeat
           a[i,j]:=trunc((11-6)*random+6);
           i:=i+1;
           j:=j-1;
     until i>n;
     writeln('Ñãåíåðèðîâàííàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to n do
                  write(a[i,j],' ');
              writeln;
         end;
     max:=a[1,1]; min:=a[1,1];
     for i:=1 to n do
         for j:=1 to n do
             begin
                  if a[i,j]>max
                     then
                         max:=a[i,j];
                  if a[i,j]<min
                     then
                         min:=a[i,j];
             end;
     s:=0;
     for i:=1 to n do
         for j:=1 to n do
             if i=j
                then
                    s:=s+a[i,j];
     writeln('Ìàêñèìàëüíûé ýëåìåíò ìàòðèöû - ',max);
     writeln('Ìèíèìàëüíûé ýëåìíò ìàòðèöû - ',min);
     writeln('Ñóììà ýëåìíòîâ ãëàâíîé äèàãîíàëè - ',s);
end.