program leggi_file(input,output);
{dichiaramo un nuovo tipo: alunno,che è un record composto da due campi:cognome e nome}
type
	alunno=record
	  cognome:varying[20] of char;
	  nome:varying[20] of char;
	end; 
var
	alu:alunno;
	fil:varying[20] of char;f:file of alunno;{definiamo una variabile logica f che ci servirà per scrivere i dati nel file fisico}

begin
	writeln("Quale file vuoi aprire?Scrivi il nome con estensione qui di seguito");
	readln(fil);
	open(f,fil,history:=old,error:=message);{assegnamo alla variabile f il file fisico}
	if status(f)>0 then
		begin
			writeln("Il nome del file inserito non esiste.");
		end;
	reset(f);{ci posizioniamo all'inizio del file}
	while not eof(f) do
		begin
			read(f,alu);
			writeln(alu.cognome," ",alu.nome);
		end;
	close(f);{chiudiamo il file fisico}
end.