with TEXT_IO, Grafok; use TEXT_IO, Grafok;
procedure GrafIO is
	inf, outf: FILE_TYPE;
	nev: STRING(1..80);
	h: NATURAL;
begin

	Put("Mi az inputfajl neve?  (""""=standard_input)  ");
	Get_Line(STANDARD_INPUT,nev,h);
	if h>0 then Open(inf,IN_FILE,nev(1..h)); Set_Input(inf); end if; 

	Put("Mi az outputfajl neve? (""""=standard_output) ");
	Get_Line(STANDARD_INPUT,nev,h);
	if h>0 then Create(outf,NAME=>nev(1..h)); Set_Output(outf); end if;

	Kiir(Beolvas.all);

	if Is_Open(inf) then Close(inf); end if;
	if Is_Open(outf) then Close(outf); end if;

exception
	when HIBAS_INPUT => 	Put_Line("Nem volt jo az input.");
				if Is_Open(inf) then Close(inf); end if;
				if Is_Open(outf) then Close(outf); end if;
end GrafIO;