Дано натуральное число. Выбрать из записи числа все четные цифры — Pascal(Паскаль)

var
  a, n: integer;

begin
  readln(n);
  while (n > 0) do
  begin
    a := n mod 10;
    n := n div 10;
    if (a mod 2 = 0) then
      write(a, ' ');
  end;

end.