Найти среднее значение в двумерном массиве

 uses crt;
 const n=5; m=6;
 var b: array[1..n] of real; c: array[1..m] of real; i,j: byte;
     a: array[1..n,1..m] of integer; max,min: real;
 begin
  randomize;
  clrscr;
 
  for i:=1 to n do   {заполнение массива}
   for j:=1 to m do
    begin
     a[i,j]:=random(19);
     a[i,j]:=a[i,j]-9;
    end;
 
  for i:=1 to n do   {вычисление среднего арифметического строк}
   begin
    for j:=1 to m do
     b[i]:=b[i]+a[i,j];
    b[i]:=b[i]/m;
   end;
 
  for j:=1 to m do   {вычисление среднего арифметического столбцов}
   begin
    for i:=1 to n do
     c[j]:=c[j]+a[i,j];
    c[j]:=c[j]/n;
   end;
 
  max:=b[1];         {вычисление максимального среднего значения строк}
  for i:=2 to n do
   if b[i]>max then max:=b[i];
 
  min:=c[1];         {вычисление минимального среднего значения столбцов}
  for j:=2 to m do
   if c[j]<min then min:=c[j];
 
  for i:=1 to n do   {вывод матрицы и средних значений строк и стобцов}
   begin
    for j:=1 to m do
     write(a[i,j]:7);
    writeln(b[i]:10:1,^j);
   end;
  writeln;
  write('  ');
  for j:=1 to m do
   write(c[j]:6:1,' ');
  writeln(^j);
 
  writeln('максимальное из средних значений строк = ',max:4:1);
  writeln('минимальное из средних значений столбцов = ',min:4:1);
 end.