Сложить минимальное четных и максимальное нечетных элементов массива

uses crt;
var n,i:integer;
    a,mn,mx:real;
begin
repeat
write('Cколько чисел ввести n>1 n=');
read(n);
until n>1;
writeln('Введите ',n,' действительных чисел:');
read(mx);
read(mn);
for i:=3 to n do
 begin
  read(a);
  if odd(i)and(a>mx) then mx:=a
  else if (i mod 2=0)and(a<mn) then mn:=a;
 end;
writeln('Максимальный с нечетным номером=',mx:0:2);
writeln('Mинимальный с четным номером=',mn:0:2);
write('Их сумма=',mn+mx:0:2);
end.

Var A:array[1..100] of real;
    i,n,imax,imin:byte;
Begin
    write('Введите N: ');readln(n);
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    imax:=1;imin:=2;
    For i:=1 to n do
     if odd(i)and(A[i]>A[imax]) then imax:=i
      else if not(odd(i))and(A[i]<A[imin]) then imin:=i;
    writeln;
    writeln('Max = ',A[imax]);
    writeln('Min = ',A[imin]);
    writeln('Min + max = ',A[imin]+A[imax]);
    readln;
 End.