Найти средние арифметические значения элементов всех строк матрицы и элементов главной диагонали

const n=3; y:array[1..n,1..n] of real=((5.2, 1.8, 5.2),
                                       (6.1, 7.4, 8.1),
                                       (2.2, 8.2, 7.1));
var c: array [1..3] of real;
    i,j,sum,imax: integer;
begin
writeln('Дан массив');
for i:=1 to 3 do
    begin
    sum:=0;
    for j:=1 to 3 do
       begin
        write(y[i,j]:6:1,'  ');
        inc(sum,y[i,j]);
       end;
    writeln;
    c[i]:=sum/6;
    end;
imax:=1;
writeln('Среднее арифметическое по строкам ');
for i:=1 to 3 do
    begin
    write(c[i]:4:1);
    if c[i]>c[imax] then imax:=i;
    end;
writeln('');
writeln('Минимальное среднее арифметическое ',c[imax]:4:1,' в строке ',imax);
end.

const
  n=3; 
  y: array[1..n,1..n] of real = ((5.2, 1.8, 5.2),
                                 (6.1, 7.4, 8.1),
                                 (2.2, 8.2, 7.1));
var
  c: array [1..n+1] of real; // создаем массив из четырех элементов
  i, j, imax: integer;
  sum: real;
begin
  writeln('Дан массив');
  for i:=1 to 3 do
  begin
    sum :=0;
    for j:=1 to 3 do
    begin
      write(y[i,j]:6:1);
      sum:=sum+y[i,j];
    end;
    writeln;
    c[i] := sum/n;
  end;
  
  sum:=0;  //среднее элементов гл. диагонали
  for i:=1 to n do
    sum:=sum+y[i,i];
  c[n+1]:=sum/n; //записываем в массив четвертым элементом
  
  imax := 1;
  writeln('Среднее арифметическое по строкам ');
  for i := 1 to n+1 do
  begin
    write(c[i]:4:1);
    if c[i] > c[imax] then 
      imax := i;
  end;
  writeln;
  if imax=4 then writeln('Максимальное среднее - в главной диагонали = ',c[imax])
  else
  writeln('Максимальное среднее арифметическое ', c[imax]:4:1, ' в строке ', imax);
  readln;
end.