Заменить максимальный элемент каждой строки нулем

uses crt;
type mas=array [1..1000,1..1000] of integer;
 
 var
a:array [1..1000,1..1000] of integer;//основной массив
b:array [1..1000] of integer;//массив строка
M,N:integer;
i,j,l,:integer;
max:integer;//макс элемент
ind:integer;
  
begin  
randomize;
writeln('Введите размеры матрицы MxN : '); 
write('M = ');readln(M);
write('N = ');readln(N);
 
for i:=1 to M do//заполнение различными числами массива
for j:=1 to N do a[i,j]:=random(10);
writeln;
writeln('Начальная матрица:');
writeln;
for i:=1 to M do
  begin 
  max:=a[1,i];
    for j:=1 to N do write(a[i,j],' ');
    writeln;
  end;
writeln; 
 
max:=a[1,i]; 
 for j:=1 to N do //поиск максимального элемента по модулю в столбце
  if (max<=a[j,i]) then begin max:=a[j,i]; ind:=j; end; 
 
 for l:=1 to N do//замена макисмалього на 0
  if (a[ind,j]=a[l,j]) then a[l,j]:=0; 
 
writeln('Матрица после выполнения задания:');
writeln;
for i:=1 to M do
  begin
    for j:=1 to N do write(a[i,j],' ');
    writeln;
  end;
 
end.

program maxel;
uses Crt;
var a:array[1..1000,1..1000] of Integer;
m,n,i,j,max:integer;
begin
ClrScr;
writeln('Введите размеры матрицы через пробел:');
read(m,n);
Writeln('Начальная матрица:');
Randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
Write(a[i,j],' ');
end;
Writeln;
end;
for i:=1 to m do
begin
max:=1;
for j:=1 to n do
if a[i,j]>a[i,max] then max:=j;
a[i,max]:=0;
end;
Writeln('Полученная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j],' ');
Writeln;
end;
Readln;
end.