В прямоугольной матрице найти максимальное среднее арифметическое среди средних арифметических каждой строки

const
  N = 6;
var
  mas1:array[1..N,1..N] of integer;
  mas2:array[1..N,1..N] of real;
  i, j, maxi, s : integer;
  maxs : real;
begin
  maxs := -50 * N - 1;
  for i := 1 to N do begin
    s := 0;  
    for j := 1 to N do begin
      mas1[i,j] := random(101)-50;
      write(mas1[i,j]:3,' ');
      s := s + mas1[i,j];
    end;
      if s > maxs then begin
        maxs := s;
        maxi := i;
      end;
    writeln;
  end;
  writeln;
  maxs := maxs / N;
  writeln('Максимальное среднее арифметическое находится в ',maxi,' строке и равно ', maxs:0:3);
  for i := 1 to N do begin
    for j := 1 to N do begin  
      if i<>maxi then 
        mas2[i,j] := mas1[i,j] - maxs
          else mas2[i,j] := mas1[i,j];
      write(mas2[i,j]:7:3,'  ');
    end;
    writeln;
  end;
end.