Free Pascal ne marche plus

Bonjour, donc voila mon probleme :

j'ai tapé le programme si dessous il a marché impec , mai voila aprés je ne c pas pour quoi j'ai écrit le meme histoire de montré a un amis comment sa marche et la boom sa me fait exited with erreur code =2 .
et la j'arrive plus a faire de programme qui utilise les fichiers , svp aidez moi .

program exo1;

var f:text;
ligne:string;
Begin
assign(f,'student.txt');
reset(f);
while not eof (f) do
Begin
readln(f,ligne);
writeln(ligne);
End;
close(f);
END.