Найти номер первого максимального нечетного числа из заданного набора

uses crt;
var
a:array[1..100] of integer;
max,min,mn,mx,i,n:integer;
k,s,pr:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
  write(i,'-й = ');readln(a[i]);
  max:=a[1];
  min:=a[i];
  k:=1;
  mn:=1;
  mx:=1;
  end;
for i:=1 to n do
  begin
    if (a[i] mod 2<>0) then if (a[i]>max) then
               k:=i;
       end;
  for i:=1 to n do
  begin
    if a[i]>max then
      begin
                  mx:=i;
      end;
      if a[i]<min then
      begin
                  mn:=i;
      end;
  end;
    writeln('1) ',k);
    if mx>mn then writeln('2) ',mn) else
       writeln('2) ',mx)
end.

var a:array[1..100] of integer;
  max,min,mx,i,n,k:integer;
begin
k:=0;
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
    max:=a[1];
    for I := 1 to n do
       if (max<a[i]) and odd(a[i]) then
        begin max:=a[i]; k:=i end;
  writeln('nomer maximal''nogo: ',k);readln
end.

var a:array[1..100] of integer;
  max,min,mx,mn,i,n:integer;
begin
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
    max:=a[1]; min:=a[1];
    for I := 1 to n do
       if (max<a[i]) then
        begin max:=a[i]; mx:=i end else
       if (min>a[i]) then
        begin min:=a[i]; mn:=i end;
 
  if mx<mn then writeln('nomer extremal''nogo: ',mx) else
  writeln('nomer extremal''nogo: ',mn);readln
end.

vvedite n: 4
a[1]: 4
a[2]: 2
a[3]: 3
a[4]: 2
nomer maximal'nogo: 0
 
vvedite n: 4
a[1]: 5
a[2]: 1
a[3]: 3
a[4]: 2
nomer maximal'nogo: 0

var a:array[1..100] of integer;
  max,min,mx,i,n,k:integer;
begin
k:=0;
  write('vvedite n: ');readln(n);
  for I := 1 to n do
    begin
      write('a[',i,']: ');
      readln(a[i])
    end;
 
    for I := 1 to n do
       if odd(a[i]) then begin max:=a[i]; k:=i;  break end;
 
    for I := 1 to n do
       if (max<a[i]) and odd(a[i]) then
        begin max:=a[i]; k:=i end;
  writeln('nomer maximal''nogo: ',k);readln
end.

Uses
 CRT;
var
 a:array[1..100] of integer;
 max,i,n,k:integer;
begin
write('vvedite n: ');
readln(n);
max:=(-MaxInt-1)+1;
k:=0;
for I:=1 to n do
begin
 write('a[',i,']: ');
 readln(a[i]);
 if (odd(a[i])) and (a[i]>max) then
 begin
  max:=a[i];
  k:=i;
 end;
end;
writeln('Èíäåêñ ìàêñèìàëüíîãî íå÷¸òíîãî ÷èñëà: ',k);
readln
end.