Образовать и напечатать вектор a, элементами которого являются количества четных элементов строк матрицы C - Pascal

Формулировка задачи:

Дана матрица C: 5x7 . Образовать и напечатать вектор a , элементами которого являются количества четных элементов строк матрицы C. Найти номер максимального элемента вектора a

Дано матрицю C:5x7. Утворити і надрукувати вектор a, елементами якого є кількості парних елементів рядків матриці C. Знайти номер максимального елемента вектора a.

Решение задачи: «Образовать и напечатать вектор a, элементами которого являются количества четных элементов строк матрицы C»

Листинг программы

uses crt;
const n=7;
      m=5;
var a:array[1..m,1..n] of integer;
    b:array[1..m] of integer;
    i,j,k,max:integer;
begin
 writeln('ГЊГ*ГІГ°ГЁГ¶Г* :');
 for i:=1 to m do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=-10+random(20);
     write(a[i,j]:4);
    end;
   writeln;
  end;
 for i:=1 to m do
  begin
  k:=0;
   for j:=1 to n do
    begin
     if a[i,j] mod 2=0 then
      inc(k);
     b[i]:=k;
    end;
  end;
writeln('ГЊГ*Г±Г±ГЁГў :');
 max:=b[1];
 for i:=1 to m do
  begin
   if b[i]>max then
    max:=b[i];
   write(b[i]:4);
  end;
writeln;
 writeln('ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГҐ = ',max);
end.

Объяснение кода листинга программы

Объявляются константы n и m со значениями 7 и 5 соответственно.
Объявляются переменные a (двумерный массив целых чисел размерности m на n), b (одномерный массив целых чисел размерности m), i, j, k, max - все переменные целочисленного типа.
Выводится сообщение ГЊГ*ГІГ°ГЁГ¶Г* : (вероятно, Матрица :).
Запускается цикл для заполнения матрицы a случайными числами от -10 до 9 и их выводом.
Запускается цикл для подсчёта четных элементов в каждой строке матрицы и записи результатов в массив b.
Выводится сообщение ГЊГ*Г±Г±ГЁГў : (вероятно, Результат :).
Определяется максимальное значение в массиве b и выводится массив b с отступами.
Выводится сообщение ГЊГ*ГЄГ±ГЁГ¬Г*Г«ГјГ*Г®ГҐ = (вероятно, Максимальное значение =) и выводится найденное максимальное значение.