Максимальный элемент матрицы

[gessi]

Все элементы с наибольшим значением в данной целочисленной матрице порядка 10 заменить нулями.
Помогите решить или подскажите алгоритм решения!!!!!!!!!!!!!!

[Stilet]

Предлагаю так:

  var a:array[1..10,1..10] of integer; q,w,mx:integer;
begin mx:=-MaxInt;
{Заполняем матрицу ищим максимум}
 for q:=1 to 10 do begin
   for w:=1 to 10 do begin
     a[q,w]:=random(5)+1;write(a[q,w]:4);
     if mx<a[q,w] then mx:=a[q,w];
   end;
   writeln;
 end;
   writeln;

{Выводим матрицу}

 for q:=1 to 10 do begin
   for w:=1 to 10 do begin
     if a[q,w]=mx then a[q,w]:=0;
     write(a[q,w]:4);
   end;
   writeln;
 end;

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[gessi]

СПАСИБО БОЛЬШОЕ!!!!!!!!!!!!