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
	fil:varying[20] of char;
	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
	writeln("In quale file vuoi salvare i dati? Scrivilo di seguito con l''estensione");
	readln(fil);
	open(f,fil,history:=unknown);{assegnamo alla variabile f il file fisico}
	extend(f);{ci posizioniamo alla fine del file}
	for i:=1 to 3 do
		begin
			writeln('inserisci il nome dell''alunno');
			readln(f^.nome);
			writeln('inserisci il cognome dell''alunno');
			readln(f^.cognome);
			put(f);{scriviamo i dati sul file fisico su disco}
		end;
	close(f);{chiudiamo il file fisico}
end.