Заменить единицами элементы строки и столбца, на пересечении которых расположен максимальный элемент главной диагонали

const
  maxelem = 20;
var
  n: integer; 
  a: array [1..maxelem,1..maxelem] of integer; 
  i,j: integer; 
  indmaxrow, indmaxcol: integer; 
  maxval: integer; 
begin
  randomize;
  write('Введите число строк и столбцов матрицы = ');
  Readln(n);
  for i:= 1 to n do    
    for j:= 1 to n do
      a[i,j]:= random(201)-100;
  writeln('Результат исходной матрицы = ');
  for i:= 1 to n do      
    begin
      for j:= 1 to n do
        write (a[i,j]:4);
      writeln;
    end;
  maxval:= a[1,1];
  indmaxrow:= 1;
  indmaxcol:= 1;
  for i:= 1 to n do    
    for j:= 1 to n do
      if a[i,j] > maxval then  
        begin
          maxval:= a[i,j];
          indmaxrow:= i;     
          indmaxcol:= j;
        end;
  writeln('Максимальное значение  a[',indmaxrow,',',indmaxcol,'] = ', maxval, '.');
  for i:= 1 to n do    
    begin
      a[indmaxrow,i]:= 1;
      a[i,indmaxcol]:= 1;
    end;
  writeln('Результат измененной матрицы = ');
  for i:= 1 to n do      
    begin
      for j:= 1 to n do
        write (a[i,j]:4);
      writeln;
    end;
  Readln;
end.

maxval:= a[1,1]; indmaxrow:= 1; indmaxcol:= 1; for i:= 1 to n do for j:= 1 to n do if a[i,j] > maxval then begin maxval:= a[i,j]; indmaxrow:= i; indmaxcol:= j; end;

  for i:= 1 to n do    
    //for j:= 1 to n do
      if a[i,i] > maxval then  
        begin
          maxval:= a[i,i];
          indmaxrow:= i;     
          indmaxcol:= i;
        end;