program scrivi_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;{definiamo una variabile di tipo alunno}
	f:file of alunno;{definiamo una variabile logica f che ci servirà per scrivere i dati nel file fisico}
	i:integer;{definiamo una variabile per il ciclo for}

begin
	open(f,"alunni2.dat");{assegnamo alla variabile f il file fisico}
	rewrite(f);{ci posizioniamo alll'inizio del file}
	for i:=1 to 3 do
		begin
			writeln('inserisci il nome dell''alunno');
			readln(alu.nome);
			writeln('inserisci il cognome dell''alunno');
			readln(alu.cognome);
			f^:=alu;
			put(f);{scriviamo i dati sul file fisico su disco}
		end;
	close(f);{chiudiamo il file fisico}
end.