program file_proba;
{P.M. - 3. gyak., HBV - 2000.febr.15.}
uses crt;
var f:text; be:string;

function megnyit(var f:text; fn:string):boolean;
begin
{$I-}
assign(f,fn);
reset(f);
megnyit:=(ioresult=0);
end;

procedure kiiras(var f:text);
var n:integer; i,j,k:integer; s:string;
  begin
  readln(f,n);
  for i:=1 to n do begin  { Nem art, ha az EOF-ra is figyelnenk ;-) }
    readln(f,j,s); { A file-ban levo adattipusokra figyelni kell }
    writeln(j,' ',s,' ');
    end;
end;

procedure bezar(var f:text);
begin
close(f);  {Kulonben a read/readln a file-bol olvasna }
{$I+}
end;

begin
write('Filenev? ');
readln(be);     { Ha ez allando, akkor: "megnyit(f,'proba.txt')" lenne }
clrscr; writeln('Minta a file-olvasashoz'); writeln;
if megnyit(f,be) then kiiras(f) else writeln('Valami hiba van');
bezar(f);
writeln('ENTER-re vege'); readln;
end.