Найти вектор, равный количеству положительных элементов строк, меньших среднего арифметического четных элементов массива

const
  m = 10;
  n = 15;
 
var
  a: array[1..m, 1..n] of integer; //матрица
  b: array[1..m] of integer; //вектор
  i, j, k: integer; //счётчики, количество чётных элементов
  av: real; //среднее арифметическое чётных элементов
 
begin
  //генерация матрицы, её печать и нахождение суммы чётных элементов матрицы
  randomize;
  av := 0;
  k := 0;
  writeln('Исходная матрица:');
  for i := 1 to m do
    begin
      for j := 1 to n do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4);
          if not odd(a[i, j]) then
            begin
              av := av + a[i, j];
              inc(k)
            end
        end;
      writeln
    end;
  //нахождение и печать вектора
  if k > 0 then //если есть чётные элементы в матрице
    begin //то находим вектор
      av := av / k; //находим среднее арифметическое чётных элементов матрицы
      writeln('Среднее арифметическое чётных элементов матрицы = ', av:0:10);
      writeln('Вектор количества положительных элементов строк,');
      writeln('меньших среднего арифметического чётных элементов матрицы:');
      for i := 1 to m do //цикл по строкам
        begin
          b[i] := 0; //обнуляем элемент вектора, соответствующий текущей строке
          //пробегаем по элементам строки матрицы, если очередной элемент строки
          //соответствует условию, то добавляем 1 к элементу вектора
          for j := 1 to m do if (a[i, j] > 0) and (a[i, j] < av) then inc(b[i]);
          write(b[i]:3) //печатаем подсчитанное количество
        end
    end
  //если нет чётных элементов, то вектор найти невозможно
  else write('Матрица не содержит чётных элементов');
  readln
end.