Задана матрица целых чисел определить максимальный элемент этой матрицы и записать нули в строку в которой он находится

program z; 
uses crt; 
var i,j,max,n,k:integer; 
a:array [1..100,1..100] of integer; 
begin 
write('Размерность матрицы: '); 
readln(n); 
clrscr; 
randomize; 
writeln('Случайная матрица: '); 
for i:=1 to n do 
begin 
for j:=1 to n do 
begin 
a[i,j]:=trunc((10-(-10))*random+(-10)); 
write(a[i,j],' '); 
end; 
writeln; 
end; 
max:=a[1,1]; 
for i:=1 to n do 
for j:=1 to n do 
if a[i,j]=max 
then 
begin 
max:=a[i,j]; 
k:=i; 
end; 
for j:=1 to n do 
a[k,j]:=0; 
writeln('Результат: '); 
for i:=1 to n do 
begin 
for j:=1 to n do 
write(a[i,j],' '); 
writeln; 
end; 
end.

program z;
uses crt;
var i,j,max,n,k:integer;
    a:array [1..100,1..100] of integer;
    s:set of byte;
begin
write('Размерность матрицы: ');
readln(n);
clrscr;
randomize;
writeln('Случайная матрица: ');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
    if i*j=1 then max:=a[i,j]
    else if a[i,j]>max then max:=a[i,j];
   end;
  writeln;
 end;
s:=[];//множество строк где есть максимум
for i:=1 to n do
for j:=1 to n do
if a[i,j]=max then s:=s+[i];
for i:=1 to n do
if i in s then  //если строка в множестве
for j:=1 to n do
a[i,j]:=0; //меняем элементы на 0
writeln('Результат: ');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.