Вывести значение каждого третьего четного элемента последовательности, начиная с первого - Pascal ABC

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

Вывести значение каждого третьего четного элемента последовательности, начиная с первого (через два четных элемента). Входные данные: Во входном потоке в первой строке через пробел перечислены значения элементов целочисленной последовательности. Признаком окончания последовательности является число ноль. Сам ноль не является элементом последовательности. Значения элементов последовательности по модулю не превышают 30000. Выходные данные: В выходной поток вывести целые числа в строку через пробел. Пример входного файла: 29070 23565 -29141 29915 22568 21096 2... Пример выходного файла: 29070 21142 -6146 3264 9220 26216 -246... подскажите, пожалуйста, в чем ошибка( выводит Нарушение формата вывода)

var i,n,x,a:longint;
begin
a:=1;
i:=0;
while a<>0 do begin read(a);
i:=i+1;
if ((i-1) mod 3=0) and (a mod 2=0) and(a<>0)
 
then write(a,' ');
end;
end.

Решение задачи: «Вывести значение каждого третьего четного элемента последовательности, начиная с первого»

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

var
  a,i:longint;
begin
  read(a);
  write(a,' ');
  i:=1;
  while a<>0 do 
    begin
      read(a);
      i:=i+1;
      if (i mod 3=0)and(not(odd(a))) 
      then write(a,' ');
    end;
end.

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

В данном коде используется язык программирования Pascal ABC. Переменные в коде:

a: longint - переменная для чтения и записи чисел с плавающей точкой.
i: longint - переменная для хранения текущего значения счетчика. Код читает первое число из ввода, выводит его на экран, а затем переходит к следующему числу. Если текущее число является четным и не является кратным трем, то оно не выводится. В цикле while происходит следующее:
read(a) - чтение следующего числа из ввода.
i := i + 1 - увеличение счетчика на единицу.
if (i mod 3 = 0) and (not(odd(a))) then write(a,' ') - проверка условия: если текущее число четное и не кратно трем, то оно выводится на экран. Таким образом, код выводит только те числа из последовательности, которые являются четными и кратными трем.