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

uses crt;
   var
   a:array [1..20,1..20] of real;
   i,j,min,z,m,n:integer;
   begin
   clrscr;
{çàïîëíÿåì è âûûâîäèì ìàòðèöó}
    writeln('Ââåäèòå ðàçìåð ìàòðèöû MõN: '); read(m); read(n); clrscr;
    for i:=1 to m do
    for j:=1 to n do
    begin
    a[i,j]:=random(50)-25;
    end;
    
 writeln('Èñõîäíàÿ ìàòðèöà ',m,'x',n,': ');
    for i:=1 to m do
    begin
    FOR j:=1 to n do
    WRITE(a[i,j]:4:0,' ');
    WRITELN;
    End;
    end.

   uses crt;
   var
   a:array [1..20,1..20] of real;
   i,j,n,m,minI,minJ,maxI,maxj:byte; buffer,z:real;
   begin
   clrscr;
{çàïîëíÿåì è âûûâîäèì ìàòðèöó}
    writeln('Ââåäèòå ðàçìåð ìàòðèöû MõN: '); read(m); read(n); clrscr;
    for i:=1 to m do
    for j:=1 to n do
    begin
    a[i,j]:=random(50)-25;
    end;
    writeln('Èñõîäíàÿ ìàòðèöà ',m,'x',n,': ');
    for i:=1 to m do
    begin
    FOR j:=1 to n do
    WRITE(a[i,j]:3:0,' ');
    WRITELN;
    End;
    minI:=1;
    minJ:=1;
    maxI:=1;
    maxJ:=1;
    for i:=1 to m do begin
    for j:=1 to n do
    begin
    if a[i,j]<a[minI, minJ] then begin minI:=i; minJ:=j; end;
    if a[i,j]>a[maxI, maxJ] then begin maxI:=i; maxJ:=j; end;
    end; end;
    writeln('Ìèíèìàëüíûé  ýëåìåíò À[',minI,',',minJ,']=',a[minI,minJ]);
    writeln('Ìàêñèìàëüíûé ýëåìåíò À[',maxI,',',maxJ,']=',a[maxI,maxJ]);
    buffer:=a[minI,minJ]; a[minI,minJ]:=a[maxI,maxJ]; a[maxI,maxJ]:=buffer;
    writeln('Ïðåîáðàçîâàííàÿ ìàòðèöà ',m,'x',n,': ');
    for i:=1 to m do
    begin
    FOR j:=1 to n do
    WRITE(a[i,j]:3:0,' ');
    WRITELN;
    End;
    end.