unit  Podpalubi;

uses  Mrazaky;
var   Prichozi, Odchozi: Mrazak;                     	   { Naše dva mrazáky }

procedure uloz( Co: Potravina );
begin	vlozDoMrazaku( Co, Prichozi ); end;

function snez: Potravina;
begin
	if prazdnyMrazak( Odchozi ) then begin
		if prazdnyMrazak( Prichozi ) then begin    { Hladomor }			
			snez := HrnicekOdMedu;
			exit;
		end;
		while not prazdnyMrazak( Prichozi ) do vlozDoMrazaku( vyndejZMrazaku( Prichozi ), Odchozi );
	end;
	snez := vyndejZMrazaku( Odchozi );
end;