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

uses crt;
 
var arr:array [,] of real;
    i, j, innerJ, arrSize:integer;
    iFile, oFile:file of real;
    mid, sum:real;
 
begin
  clrscr;
  randomize;
  
  write('Enter size of array: ');
  readln(arrSize);
  
  assign(iFile, 'input');
  rewrite(iFile);
  
  for i:=1 to arrSize*arrSize do
    write(iFile, random(26)+1);
  
  reset(iFile);
  setLength(arr, arrSize, arrSize);
  i:=0;
  j:=0;
  
  while not eof(iFile) do
    begin
      read(iFile, arr[i, j]);
      
      if i=j then
        textColor(lightRed)
      else
        textColor(white);
        
      write(arr[i, j]:3);
      j:=j+1;
      
      if j=arrSize then
        begin
          sum:=0;
          
          for innerJ:=0 to arrSize-1 do
            sum:=sum+arr[i, innerJ];
              
          mid:=sum/arrSize;
          
          arr[i, i]:=mid;
        
          i:=i+1;
          j:=0;
          writeln;
        end;
    end;
    
  close(iFile);
  
  writeln;
  
  assign(oFile, 'Output');
  rewrite(oFile);
  
  for i:=0 to arrSize-1 do
    begin
      for j:=0 to arrSize-1 do
        begin
          write(oFile, arr[i, j]);
          
          if i=j then
            textColor(lightRed)
          else
            textColor(white);
          
          write(arr[i, j]:4:2, '  ');
        end;
      writeln;
    end;
  
  close(oFile);
  
  arr:=nil;
  
  textColor(white);
end.