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

Program Lab_7_8;
  Var
    max,i:byte;
    MAS:array [1..10] of integer;
  Begin
   max:=0;//проверим есть ли нужные числа
    for i:=1 to 10 do
      Begin
        WriteLn ('Введите MAS',i);
        ReadLn (MAS[i]);
        if (i mod 2 = 0) and (MAS[i]mod(2)<>0) then max:=i;//если есть, это пока макс
      End;
    if max=0 then write('В массиве нет нечетных элементов на четных местах')
    else
     begin //найдем самое большое из нужных
      for i:=1 to 10 do
      if (MaS[max]<MAS[i]) and (i mod 2 = 0) and (MAS[i]mod(2)<>0) then
      max:=i;
      WriteLn ('Максимальное, нечетное число что стоит на четном месте в массиве MAS это ',MAs[max]);
     end;
   ReadLn;
    End.