Дано целое число N и набор из N целых чисел. Найти номер первого максимально нечетного числа из данного набора. Если нечетные числа в наборе отсутствуют, то вывести 0 — Pascal(Паскаль)

const
n=10;
var
i,k:integer;
a:array[1..n] of integer;
begin
for i:=1 to n do
  begin
      a[i]:=random(20);
      write(' ',a[i]:3);
  end;
writeln();
writeln('-------');

k:=0;
for i:=1 to n do
 if odd(a[i]) and (a[i]>a[k]) then k:=i;
writeln(k);

writeln('-------');
end.