Найти максимальный и минимальный элементы массива и заменить их нулями

Var A:array[1..20,1..20] of integer;
    n,m,i,j,max,min,t,r,q,p,o:integer;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во стобцов: ');readln(m);
    max:=-10;min:=10;
    Randomize;
    For i:=1 to n do
     Begin
      For j:=1 to m do
       Begin
        A[i,j]:=random(11)-5;
        write(A[i,j]:3);
        if a[i,j]>max then
         Begin
          max:=a[i,j];
          r:=i;
          q:=j;
         End;
        if a[i,j]<min then
         Begin
          min:=a[i,j];
          p:=i;
          o:=j;
         End; 
        End;
       writeln;
      End;
     writeln('Max: ',max);
     writeln('Min: ',min);
     A[r,q]:=0;
     A[p,o]:=0;
     For i:=1 to n do
      Begin
       For j:=1 to n do
        write(A[i,j]:3);
       writeln;
      End;
End.

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  i,j,n,m,min,max,imin,jmin,imax,jmax: integer;
begin
  randomize;
  write('Введите размеры массива:');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  
  min:=a[1,1]; max:=a[1,1]; 
  imin:=1; jmin:=1; imax:=1; jmax:=1;
  for i:=1 to n do
    for j:=1 to m do
    begin
      if a[i,j]>max then 
      begin
        max:=a[i,j];
        imin:=i;
        jmin:=j;
      end;
      if a[i,j]<min then
      begin
        min:=a[i,j];
        imax:=i;
        jmax:=j;
      end;
    end;
    
  writeln('Полученный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      if ((i=imax)and(j=jmax))or((i=imin)and(j=jmin))
        then a[i,j]:=0;   
      write(a[i,j]:5);
    end;
    writeln;
  end;
  readln;
end.