Найти максимум среди нечетных элементов массива, что стоят на четных местах

Program Lab_7_8;
  Var
    max,i:byte;
    MAS:array [1..10] of integer;
  Begin
    for i:=1 to 10 do
      Begin
        WriteLn ('Введите MAS',i);
        ReadLn (MAS[i]);
      End;
   max:=0;
    for i:=1 to 10 do Begin
      if (max<MAS[i]) and (i mod 2 = 0) and (MAS[i]mod(2)<>0) then
      max:=MAS[i];
     end;
   if max=0 then writeln('nuzhnuh chicel ne bulo vvedino')
   else WriteLn ('Максимальное, нечетное число что стоит на четном месте в массиве MAS это ',max);
   ReadLn;
    End.

Program Lab_7_8;
Var
max,i:byte;
MAS:array [1..10] of integer;
Begin
for i:=1 to 10 do
Begin
WriteLn ('Введите MAS',i);
ReadLn (MAS[i]);
End;
max:=0;
for i:=1 to 10 do Begin
if (max<MAS[i]) and (i mod 2 = 0) and (MAS[i]mod(2)<>0) then
max:=MAS[i];
end;
if max=0 then writeln('nuzhnuh chicel ne bulo vvedino')
else WriteLn ('Максимальное, нечетное число что стоит на четном месте в массиве MAS это ',max);
ReadLn;
End.

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.