дан массив целых чисел, найти номер первого нечётного элемента массива(массив просматривается с конца, используя цикл for...down to), если нечётных элементов нет, то должно быть напечатано соответствующее сообщение

var  a: array[1..100] of integer;  i, k,n: integer;begin  writeln('Введите n:');  readln(n);  writeln('Массив:');  for i := n downto 1 do  begin    a[i] := random(100);    write(a[i]:4);  end;  writeln;k:=0;  for i := 1 to n do    if a[i] mod 2 <> 0 then    begin    writeln('Номер первого нечетного = ', i);    k:=1;      break;   end;  if k=0 then writeln('В массиве нет нечетных элементов');  readln;end.