Pascal/Turbo Pascal - Error al calcular dos maximos en Pascal

Estoy teniendo inconvenientes al momento de calcular los dos maximos en Pascal. El inconveniente me pasa solo en el primer maximo (max1), ya que el segundo maximo (max2) me lo retorna correctamente.

Ademas, me pedia calcular dos minimos, los cuales me retornan correctamente.

(Para ponerlos en contexto, el programa me pide:

-Codigo de los dos aviones con mayor cantidad de km: (el que procedimiento que retorna mal)

procedure AvionesMax_km (var i2:Avion; var max1,max2: real; var Cod_AvionMax1, Cod_AvionMax2: real );

begin
if i2.Km_recorridos > max1 then
begin
max2:= max1;
max1:= i2.Km_recorridos;
Cod_AvionMax2:= Cod_AvionMax1;
Cod_AvionMax2:= i2.Cod_Avion ;
end
else
begin
if i2.Km_recorridos > max2 then
begin
max2:= i2.Km_recorridos;
Cod_AvionMax2:= i2.Cod_Avion ;
end;

end;
end;
-Codigo de los dos aviones con menor cantidad de km (este modulo retorna correctamente)

procedure AvionesMin_km (var i3: Avion;var min1,min2: real; var Cod_AvionMin1, Cod_AvionMin2: real );

begin
if i3.Km_recorridos < min1 then
begin
min2:= min1 ;
min1:= i3.Km_recorridos;
Cod_AvionMin2:= Cod_AvionMin1 ;
Cod_AvionMin1:= i3.Cod_Avion;
end
else
begin
if i3.Km_recorridos < min2 then
begin
min2:= i3.Km_recorridos;
Cod_AvionMin2:= i3.Cod_Avion ;
end;
end;
end;