Двумерный массив. Найти наибольший элемент, заменить его значением суммы элементов

const
  n = 5;
 
var
  a: array[1..n, 1..n] of integer;
  j, i, sum, max, max_indexi, max_indexj: integer;
 
begin
  writeln('Исходных массив:');
  for i := 1 to n do 
  begin
    writeln;
    for j := 1 to n do 
    begin
      
      a[i, j] := random(21) - 10;
      write(a[i, j]:4);
    end;
  end;
  max_indexi := 1;
  max_indexj := 1;
  max := a[1, 1];
  for i := 2 to n do 
    for j := 2 to n do 
    begin
      if a[i, j] > max then begin
        max_indexi := i;
        max_indexj := j;
        max := a[i, j];
      end;
    end;
  writeln;
  writeln;
  writeln('Максимальный элемент массива ', max, ' с индексом ', max_indexi, max_indexj:2);
  
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      
      
      sum := sum + a[i, j];
    end;
  end;
  writeln('Сумма элементов массива: ', sum);
  writeln('Преобразованный массив: ');
  writeln;
  for i := 1 to n do 
  begin
    writeln;
    for j := 1 to n do 
    begin
      
      a[max_indexi, max_indexj] := sum;
      write(a[i, j]:4);
    end;
  end;
  readln;
end.