Записать +1 вместо максимального четного элемента массива A (12) — Pascal(Паскаль)

var a : array [1..12] of real;
    i,k : byte;
    max : real;
 begin
  max:=0;
  writeln('Input array of real: 12 col :');
  for i:=1 to 12 do
   begin
    read(a[i]);
    if (i mod 2=0) and (a[i]>max) then max:=a[i];
   end;
 
  writeln('Changed array :');
  for i:=1 to 12 do
   begin
    if (a[i]=max) then
     a[i]:=1;
    write(a[i]:5:2,' ');
   end;
  readln;
  readln;
 end.