Вывести номера столбцов, в которых нет четных элементов

[manchester_alan]

for j:=1 to y do
     begin
     flag:=true;
       for i:=1 to x do
       begin
         if(a[i,j] mod 2=0)or(a[i,j]=0) then
         flag:=false;
       end;
       if flag=true then writeln('Столбец без четных элементов: ',j);
     end;

и вот как написать чтобы, если не нашел такие столбцы, то выводил сообщение об этом...

if flag=true then writeln('Столбец без четных элементов: ',j) else writeln('Нет столбцов таких');

Когда вот так пишу, то всегда выводит сообщение о не найденных столбцах..(

даже если есть, все равно выводит сообщение что нет

[Аватар]

  count:=0;
  for j:=1 to y do begin
    flag:=True;
    for i:=1 to x do flag:=flag and Odd(a[i,j]);
    if flag then writeln('Столбец без четных элементов: ',j);
    Inc(count,Integer(not flag));
  end;
  if count=0 then writeln('Нет столбцов c четными элементами');