Определение значения максимального из элементов с нечетными номерами и его номера в последовательности

Var A:array[1..100] of real;
    i,n,imax:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random*10-5;
      write(A[i]:6:2);
    End;
    writeln;
    imax:=1;i:=1;
    While i<n do
    Begin
      inc(i,2);
      if A[i]>A[imax] then imax:=i;
    End;
    writeln('Max = ',A[imax]:0:2,' индекс = ',imax);
    readln;
End.

Var A:array[1..100] of real;
    i,n,imax:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random*10-5;
      write(A[i]:6:2);
    End;
    writeln;
    imax:=1;i:=3;
    While i<=n do
    Begin
     if A[i]>A[imax] then imax:=i;
     inc(i,2);
    End;
    writeln('Max = ',A[imax]:0:2,' индекс = ',imax);
    readln;
End.