Построение, преобразование и обработка матриц

[gessi]

Нужно помочь в решении задачи на паскале:
Все элементы с наибольшим значением в данной целочисленной матрице порядка 10 заменить нулями.
БОЛЬШОЕ СПАСИБО ЗА ПРЕДЛОЖЕННУЮ ПОМОЩЬ)))))))))))))))

[ОДИНОЧЕСТВО В СЕТИ]

program matrix;
uses crt;
var a:array[1..10,1..10] of integer;
  i,j,max:integer;
 begin
randomize;
max:=0;
 for i:=1 to 10 do
for j:=1 to 10 do 
begin
 a[i,j]:=random(50)+1;
 if a[i,j]>max then max:=a[i,j];
 end;
 writeln ('matrix1');
 for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  write(a[i,j]:6);
  writeln;
 end; 
for i:=1 to 10 do
for j:=1 to 10 do
 if a[i,j]:=max then a[i,j]:=0;
 writeln ('matrix2');
 for i:=1 to 10 do
 begin
 for j:=1 to 10 do
  write(a[i,j]:6);
  writeln;
 end; 
 readln;
 end.

[gessi]

Спасибо большое!!!!!!!!!!!!!!!!!