Описать двумерный массив в разделе констант и вывести все четные и положительные числа

Const
  a: array of integer = (0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -555);

begin
  foreach s: integer in a do
    if (s mod 2 = 0) and (s > 0) then
      write(s, ' ');
end.