Hola os cuento, estoy haciendo un programa que tiene un registro "registroalumno" y el usuario tiene que ir introduciendo lo que se le pide y al final tiene que guardarse en un fichero(binario), pero no consigo que funcione, me compila perfectamente pero cuando termina el programa me sale un error "Runtime error" y nose porque :S si me podeis ayudar :S
Aqui dejo el código.
Gracias de antemano ^^!
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.
