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

program laba;
uses crt;
const n=3; m=4;
var
a:array[1..n,1..m] of integer;
i,j,max:integer;
 
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
 
max:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>max then max:=a[i,j];
end;
end;
 
writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]=max then a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
 
readln;
end.

program laba;
uses 
crt;
const 
n=3; 
m=4;
type 
MyArray2D = array [1..n, 1..m] of integer;
 
procedure inputArray2D(var a : MyArray2D);
var
   i , j  : integer; 
begin
   for i := 1 to n do
      for j := 1 to m do
         read(a[i, j]);      {пофиг, что не рандомно, зато вомзожность аналитической проверки алгоритма есть}
end;
 
procedure outputArray2D(const a : MyArray);
var
  i, j : integer;
begin
   for j := 1 to m do
   begin
      for i := 1 to n do
         write(a[i, j]);
         writeln;
    end;
 
function findMax(const a : MyArray);
var
  i, j : integer;
  imax, jmax : integer;
begin
   imax := 1;
   jmax := 1;
   for i := 1 to n do
      for j := 1 to m do
          if (a[i, j] > a[imax, jmax]) then
          begin
             imax := i;
             jmax := j;
          end;
    finMax := a[imax, jmax];
end;
 
var 
   a   : MyArray2D;
   max : integer;
begin
   inputArray(a);
   outputArray(a);
   max := findMax(a);
   for i := 1 to n do
      for j := 1 to m do
         if (a[i, j] = max) then
            a[i, j] := 0;
   outputArray(a);
   readkey;
end;