Минимум среди нечетных Опции

[asder]

Приветствую! Помогите решить простую задачу на паскале:
"Даны N целых чисел. Найти и вывести на экран минимальное среди нечётных чисел."

[asder]

Напишите, как эту задачу оформить в самом паскале

[DarkWishmaster]

Напишите, как эту задачу оформить в самом паскале

Uses Crt;
var N,min,number:integer;
Begin
write('N= ');
readln(n);
writeln('Insert ',N,' numbers: ');
min:=MaxInt;
while n>0 do
  begin
    readln(number);
      if odd(number) then  
         if number<min then min:=number;
    dec(n);
  end;
writeln(Min);
readln;
end.