Найти номер последнего максимального значения среди нечетных (по значению) элементов — Pascal(Паскаль)

program slognoe;
uses crt;
var a:array[1..100] of integer;
max,i,n,nmax:integer;
begin
clrscr;
write('n=');readln(n);//ввести и прочитать размерность массива
writeln('vvedite ',n,' elementov massiva');
for i:=1 to n do
read(a[i]);  //ввести и прочитать сам массив
readln;
for i:=1 to n do
max:=a[n];nmax:=1;
for i:=n downto 1 do
if a[i]>max then
begin
max:=a[i];
nmax:=i;
end;
writeln;
writeln ('nmax:=',nmax); //написать переменную, значение которой надо вывести
readln
end.