with text_io; use text_io;
package Grafok is
	type Graf( pontszam: NATURAL ) is private;
	type PGraf is access Graf;
	function Beolvas ( f: FILE_TYPE := CURRENT_INPUT ) return PGraf;
	procedure Kiir ( g: in Graf; f: in FILE_TYPE := CURRENT_OUTPUT );
	HIBAS_INPUT: exception;
private
	type BMatrix is array (INTEGER range <>, INTEGER range <>) of BOOLEAN;
	type Graf( pontszam: NATURAL ) is record
		szomszed: BMatrix(1..pontszam,1..pontszam)
			:= ( others => (others => false) );
	end record;
end Grafok;