Даны N натуральных чисел.Найти максимальное значение только из нечетных и его номер -Pascal(Паскаль)

Program xxx;
uses
  crt;
var
  a: array [1..10] of integer;
  max,k,i,n: integer;
begin
  clrscr;
  writeln('Введитн кол-во чисел');
  readln(n);
  writeln('Введите числа:');
  for i:=1 to n do
    read(a[i]);
  max:=a[1];
  for i:= 1 to n do
    if ((a[i] mod 2)=1) and (a[i]>max) then
    begin
      max:=a[i];
      k:=i;
    end;
  if a[1]=max then
    k:=1;
  writeln('Максимальное нечетное число ',max,' с номером ',k);
  readkey;
end.