Дан массив целых чисел (заполнить случайными числами от 20 до 99). Найти номер первого нечетного элемента. Если нечетных элементов в массиве нет, то напечатать соответствующее сообщение

program rt;const n=10;var i,z:byte;a:array[0..n] of integer;x:integer;begin write('Массив - '); for i:=0 to n do  Begin a[i]:= random(20,99);  write(a[i]:3);  end;  writeln; for i:=0 to n doif a[i] mod 2 <> 0 thenbeginwrite('Номер 1-го нечетного - ',i+1);break;end;for i:=0 to n doif a[i] mod 2 <> 0 thenz:=z+1;if z=0 thenwrite('Нечетных чисел в массиве нет!');end.