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

[zzz.postalman]

Добрый день,нужна помощь - ваша.Не могу сделать кое-что из этого задания:
"В каждом столбце матрицы D(8,10) вместо максимального элемента записать 1"
Вот последнее действие и не могу сделать,не могу заместо максимальных элементов матрицы,записать 1.
Вот код программы:

Program zzz;
uses crt;
var a:array[1..8,1..10] of byte;
i,j,max;elem1,elem2:byte;
begin
ClrScr;
Randomize;
For i:=1 to 8 do begin
For j:=1 to 10 do begin
a[i,j]:=Random(10);
Write(a[i,j]:8);
end;
end;
Writeln;
max:=a[1,1];
For i:=1 to 8 do begin
For j:=1 to 10 do begin
if a[i,j]>max then begin
max:=a[i,j];
elem1:=i;
elem2:=j;
end;
end;
end;
Writeln;
Writeln('Maximalniy element massiva:', max:5);
Writeln('Ego nomer stroki:', elem1:5);
Writeln('Ego element stolbtsa:',elem2:5);
ReadKey;
end.

[Stilet]

For i:=1 to 8 do begin
 For j:=1 to 10 do begin
  if a[i,j]>max then begin   max:=a[i,j];elem2:=j;end;
 end;
 a[i,elem2]:=1;
end;

Единственное что будет глук если максимальных несколько

[zzz.postalman]

Что-то ничего не произошло...((

[Stilet]

А что должно произойти?

[zzz.postalman]

вместо максимальных элементов почему-то не записывается 1.
Я чёго то наверно не то делаю.