В двумерном массиве заменить нулями те элементы, которые имеют нечётную сумму индексов

{ При помощи случайных чисел ввести одномерный массив размерностью 10
матрицу размером 5х6. В двумерном массиве заменить нулями те элементы,
которые имеют нечётную сумму индексов и превосходят среднее
арифметическое значение одномерного массива. Вывести на экран одномерный
массив, среднее арифметическое одномерного массива и матрицу после
преобразования.}
const
  n=10;
  k=5;
  m=6;
var
  a:array [1..n] of real;
  b:array [1..k,1..m] of real;
  i,j:integer;
  sum,srar:real;
begin
  randomize;
  sum:=0;
  writeln('Исходный одномерный массив: ');
  for i:=1 to n do
    begin
      a[i]:=random*n;
      write(a[i]:6:2);
      sum:=sum+a[i];
    end;
  srar:=sum/n;
  writeln;
  writeln('Исходная матрица: ');
  for i:=1 to k do
    begin
      for j:=1 to m do
        begin
          b[i,j]:=random*k*m;
          write(b[i,j]:8:2);
        end;
      writeln;
    end;
  writeln('Среднее арифметическое = ',srar:8:2);
  writeln('Преобразованная матрица: ');
  for i:=1 to k do
    begin
      for j:=1 to m do
        begin
          if (b[i,j]>srar) and (odd(i+j)) then
            b[i,j]:=0;
          write(b[i,j]:8:2);
        end;
      writeln;
    end;
  readln;
end.