Найти и вывести для каждой строки массива количество четных чисел - Pascal ABC

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

дан произвольный двумерный массив целых чисел . размерность 5 на 6 . найти и вывести для каждой строки отдельно количество четных чисел. помогите

program fgjsh;
 
var
  a: array [1..5, 1..6] of integer;
  i,d,k: integer;
 
begin
  randomize;
  for i := 1 to 5 do 
  begin
    for d := 1 to 6 do 
    begin
      a[i, d] := random(31);
      write(a[i, d]:4);
    end;
    writeln
  end;
  writeln('после изменения');
  for i := 1 to 5 do 
  begin
    for d := 1 to 6 do
      if (a[i, d] mod 2 = 0) then k := k + 1;
    if (d = 6) then begin
      write(k, ' '); k := 0;
    end;
  end;
end.

Решение задачи: «Найти и вывести для каждой строки массива количество четных чисел»

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

program fgjsh;
 
var
  a: array [1..5, 1..6] of integer;
  i,d,k: integer;
 
begin
  randomize;
  for i := 1 to 5 do 
  begin
    for d := 1 to 6 do 
    begin
      a[i, d] := random(31);
      write(a[i, d]:4);
    end;
    writeln
  end;
  writeln;
  writeln(' Обработка массива: ');
  writeln;
  for i := 1 to 5 do 
  begin k := 0;
    for d := 1 to 6 do       if (a[i, d] mod 2 = 0) then Inc(k);
    write(' Строка № ',i,':  найдено четных чисел: ', k); 
    writeln
  end;
end.

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

В данном коде используется язык программирования Pascal ABC. Он предназначен для решения задач в рамках школьной программы и имеет ряд особенностей, которые отличают его от стандартного языка Pascal. В начале кода объявляются необходимые переменные: массив a размером 5 на 6, счетчики i, d и k и переменная a[i, d] для хранения значения элемента массива. Затем происходит инициализация генератора случайных чисел с помощью функции randomize. Это необходимо для того, чтобы каждый раз при запуске программы генерировались разные случайные числа. Далее идет цикл for, который выполняется пять раз. Внутри этого цикла происходит итерация по элементам массива a[i, d] с помощью еще одного цикла for. Для каждого элемента вычисляется остаток от деления на два (a[i, d] mod 2 = 0). Если остаток равен нулю, то счетчик k увеличивается на единицу. После завершения внутреннего цикла выводится информация о количестве четных чисел в каждой строке массива. Для этого используется цикл for, который выполняется пять раз. Внутри него выводится номер строки, количество найденных четных чисел и символ новой строки. В конце кода выводится сообщение Обработка массива:, после чего выводится информация о количестве четных чисел в каждой строке массива. Таким образом, данный код решает задачу подсчета количества четных чисел в каждой строке массива и выводит полученные результаты на экран.