Program binario;
type
Registroalumno = record
nombre:string;
apellido:string;
ciudad:string;
curso:integer;
end;
var
alumnobin : file of Registroalumno;
Alumno:Registroalumno;
(*Comienza el programa*)
Begin
Assign(alumnobin,'/home/jaime/Desktop/alumno.txt');
rewrite(alumnobin);
writeln('Introduzca el nombre del alumno :');
readln(alumno.nombre);
writeln('Introduzca el apellido del alumno :');
readln(alumno.apellido);
writeln('Introduzca la ciudad del alumno :');
readln(alumno.ciudad);
writeln('Introduzca el curso del alumno:');
readln(alumno.curso);
write(alumnobin,alumno);
writeln;
writeln('*** Creacion de alumnobin completada ***');
close(alumnobin);
End.