Введите с клавиатуры n целых чисел . Найти среди этих чисел последнее нечетное число и его порядковый номер . Если нечетных чисел нет,то вывести NO . паскаль!

Program n1;var n,i,a,t,k: integer;beginreadln(n);t:=0;for i:=1 to n do beginreadln(a);if abs(a) mod 2 <>0 then begint:=a;k:=i;end;end;if t =0 then write('NO') else write('число ',t,'; порядковый номер: ',k);end.