Дан двумерный массив целых чисел из 4 столбцов и 3 строк. Найти максимальный элемент в массиве и заменить его нулем — Pascal(Паскаль)

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.