Даны натуральные числа найти те которые являются удвоенно нечетными. (Через процедуры) — Pascal(Паскаль)

uses crt;
const n=10;
function ByNech(z:integer):boolean;
begin
if odd(z) then ByNech:=false //если нечетное, не подходит
else if odd(z div 2) then ByNech:=true //если после деления на 2 нечетное - подходит
    else ByNech:=false;//если после деления на 2 четное, не подходит
end;
var a:array[1..n] of integer;
    i:integer;
begin
clrscr;
Writeln('Vvedite ',n,' chisel:');
for i:=1 to n do
read(a[i]);
readln;
writeln('Udvoennye nechetnye chisla:');
for i:=1 to n do
if ByNech(a[i])then writeln(a[i]);
readln
end.