Допольнить рабочий код - Pascal

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

Найти количество четных элементов одномерного массива целых до первого встреченного числа, равного наперед заданному числу а. Размерность массива 50. Заполнение массива осуществить случайными числами от -100 до 100. Нужно дополнить, чтобы выводил решение, т. е все четные цифры перед числом а, помогите пожалуйста

const n=50;
var i,a,b,k: Integer;
m: array [1..n] of Integer;
begin
Randomize;
writeln('Массив');
writeln('Выполнил студент гр. Эпр-02 Иванов С. В.');
for i:=1 to n do
begin
m[i]:=-100+random(201);
write(m[i]:5);
end;
writeln;
write('Введите число A=');
readln(a);
b:=0;
i:=1;
while(i<=n)and(b=0) do
if m[i]=a then b:=i else inc(i);
if b=0 then write('В массиве нет элемента, равного ',a)
else
begin
if b=1 then write('Элемент, равный ',a,' первый')
else
begin
k:=0;
for i:=1 to b-1 do
if m[i] mod 2=0 then k:=k+1;
writeln('Количество четных чисел до первого элемента, равного ',a,'=',k);
end;
end;
readLn;
end.

Решение задачи: «Допольнить рабочий код»

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

else
 begin
  if b=1 then write('Элемент, равный ',a,' первый')
  else
   begin
    k:=0;
    for i:=1 to b-1 do
    if m[i] mod 2=0 then
     begin
      k:=k+1;
      write(m[i]:5);
     end;
    writeln;
    writeln('Количество четных чисел до первого элемента, равного ',a,'=',k);
   end;
end;

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

Объявление переменных:
- a: значение переменной неизвестно
- b: значение переменной неизвестно
- k: значение переменной неизвестно
- m: массив чисел, значение неизвестно
Условие else (иначе): Если не выполняется предыдущее условие, то выполняется следующий блок кода.
Начало блока begin.
Условие if b=1 then write('Элемент, равный ',a,' первый'): Если значение переменной b равно 1, то выводится сообщение Элемент, равный, значение переменной a, первый.
Иначе, начало блока else.
Устанавливается значение переменной k в 0.
Цикл for от 1 до b-1.
Внутри цикла проверяется, является ли значение из массива m[i] четным числом (модуль деления на 2 равен 0).
В случае, если значение m[i] - четное число, увеличивается значение переменной k на 1 и выводится значение m[i].
После цикла выводится пустая строка.
Выводится сообщение Количество четных чисел до первого элемента, равного, значение переменной a, =, значение переменной k.
Конец блока else.
Конец всего блока begin.