Создать вектор, элементами которого являются количества чётных элементов строк матрицы

const
  m = 9;
var
  a: array[1..m, 1..m] of integer;
  b: array[1..m] of integer;
  i, j, min, max: integer;
begin
  randomize;
  //генерация матрицы
  for i := 1 to m do
    for j := 1 to m do
      a[i,j] := -99 + random(199);
  //печать матрицы
  writeln('Матрица A:');
  for i := 1 to m do
    begin
      for j := 1 to m do write(a[i,j]:4);
      writeln
    end;
  //подсчёт чётных элементов строк и запись результата в вектор b
  for i := 1 to m do
    begin
      b[i] := 0;
      for j := 1 to m do
        if not odd(a[i,j]) then inc(b[i]);
    end;
  //печать вектора b
  writeln('Вектор b:');
  for i := 1 to m do write(b[i]:2);
  writeln;
  //поиск номеров максимального и минимального элементов вектора
  min := 1;
  max := 1;
  for i := 2 to m do
    if b[i] < b[min] then min := i
    else
      if b[i] > b[max] then max := i;
  //печать найденных номеров
  writeln('Номер минимального элемента: ', min);
  writeln('Номер максимального элемента: ', max)
end.

const
  m = 9;
var
  a: array[1..m, 1..m] of integer;
  b: array[1..m] of integer;
  i, j, min, max: integer;
begin
  randomize;
  min := 1;
  max := 1;
  writeln('Матрица A:');
  for i := 1 to m do
    begin
      b[i] := 0;
      for j := 1 to m do
        begin
          a[i,j] := -99 +random(199);
          write(a[i,j]:4);
          if not odd(a[i,j]) then inc(b[i])
        end;
      writeln;
      if b[i] < b[min] then min := i
      else
        if b[i] > b[max] then max := i
    end;
  writeln('Вектор b:');
  for i := 1 to m do write(b[i]:2);
  writeln;
  writeln('Номер минимального элемента: ', min);
  writeln('Номер максимального элемента: ', max)
end.