Pascal/Turbo Pascal - Problema con un procedimiento

Necesito devolver el codigo de los dos productos más baratos. Me ayudan a analizar el problema de porque me devuelve los ultimos codigos ingresados y no los mas baratos. Gracias

Program baratos;

procedure masBarato (var precio,codigo,min_codigo,min2_codigo: integer);
var
min, min2: integer;
begin
min:= 9999; min2:= 9999;
if (precio < min) then begin
min2:= min;
min:= precio;
min2_codigo:= min_codigo;
min_codigo:= codigo;
end
else
if (precio < min2) then begin
min2:= precio;
min2_codigo:= codigo;
end;
end;
var
i, precio, codigo, cod, cod2: integer;
tipo: string;
begin
for i := 1 to 3 do begin
writeln('Ingresar precio, codigo y tipo de un producto de una tienda de ropa: ');
readln(precio); readln(codigo); readln(tipo);
masBarato(precio,codigo,cod,cod2);
end;
writeln('El codigo de los dos productos mas baratos fueron: ',cod,' y ',cod2);
end.

El problema es que no se conservan los dos precios más baratos entre llamadas al procedimiento masBarato y siempre se compara el nuevo precio con 9999, con lo que siempre el último es más barato (que 9999).
Aquí tienes una versión que creo que funciona (no la he comprobado).

Suerte