Дан массив целых чисел. Напечатать все четные элементы

program z;
uses crt;
const n=10;
var i,f:byte;
a:array [1..n] of integer;
begin
     clrscr;
     writeln('Ââîä ýëåìåíòîâ ìàññèâà');
     for i:=1 to  n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     clrscr;
     write('Ìàññèâ: ');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     f:=0;
     write('Íå÷åòíûå ýëåìåíòû ìàññèâà: ');
     for i:=1 to n do
         if odd(a[i])=true
            then
                begin
                     write(a[i],' ');
                     f:=1;
                end;
     if f=0
        then
            write('òàêèõ ýëåìåíòîâ íåò!');
     readln;
end.