Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.

const n = 20;var a: array[1..n] of integer;     i,k,minel: integer;begin//заполнение массива //и вывод массива на экран  randomize;  writeln('элементы массива:');  for i:=1 to n do  begin    a[i]:=random(50)-30;    write(a[i],' ');  end;  writeln;//обработка массива и вывод на экран  minel:=a[1];  for i:=2 to n do  if (a[i]<minel) and (abs(a[i]) mod 2 > 0) then   begin    minel:=a[i];    k:=i;  end;  writeln('номер элемента: ',k,'  значение: ',minel);end.