564 помогите с информатикой.

//PascalABC.NET v3.3 1633

var a: array [0..67] of integer;

begin

 for var i:=0 to 67 do

   a[i]:=random(0, 9);

 write('Начальный массив: ');

 a.PrintLn(', ');

 var maxIndex:=0;

 for var i:=0 to 67 do

   if (a[i] mod 2 lt;gt; 0) and (a[i] gt; a[maxIndex]) then

     maxIndex:=i;

 writeln('Наибольший нечетный элемент: A['+maxIndex+'] = '+a[maxIndex]);

end.

var a: array [0..67] of integer;  

i,max,maxi:integer;

begin

randomize;

for i:=0 to 67 do  

 a[i]:=random(60);

max:=0;

maxi:=0;

for i:=0 to 67 do  

 if (a[i] mod 2 lt;gt; 0) and (a[i] gt; max) then

   begin

   max:=a[i];

   maxi:=i;

   end;

writeln(maxi);

end.