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

Uses Crt;
Var
A     : array[1..10] of integer;
B     : array[1..3,1..3] of integer;
i,j   : byte;
Sr_A  : real;
Ind   : byte;
Begin
ClrScr;
Randomize;{Используем генератор случайных чисел}
{Формируем массив А}
For i:= 1 to 10 do A[i]:=random(10);
{Формируем массив В}
For j:= 1 to 3 do begin
 For i:=1 to 3 do begin
  B[i,j]:=random(25);
 End;
End;
{Находим среднее арифметическое в массиве А}
Sr_A:=0;
For i:= 1 to 10 do begin
 Sr_A:=Sr_A+A[i];
End;
 Sr_A:=Sr_A/10;
{Работаем над массивом В}
For j := 1 to 3 do begin
 For i := 1 to 3 do begin
  Ind := i+j;
  If ((odd(Ind)=true) and (B[i,j]>Sr_A)) then B[i,j]:=0;{Проверяем на нечетность индексов и является ли число больше среднего из массива А}
 End;
End;
WriteLn('Mass A:');{Выводим на экран массив А}
For i:=1 to 10 do write(A[i]:3);{Выводим на экран массив В (уже с нулями)}
WriteLn;
WriteLn('Mass B:');
For j:= 1 to 3 do begin
 For i:=1 to 3 do begin
  Write(B[i,j]:3);
 End;
 WriteLn;
End;
WriteLn;
Write('Среднее арифметическое массива А: ',Sr_A:4:3);
ReadKey;
ClrScr;
End.