Lire un fichier d'enregistrement

Bonjour,
Je souhaite lire un enregistrement d'un fichier à la fois. Pour cela, j'ai converti mon fichier texte en fichier d'enregistrement, puis je le lit. Mais cela ne fonctionne pas, je ne comprend pas pourquoi.. Pouvez-vous m'aider ?

Voici mon programme :

program chargerunequestion;

type Question =record {indications relatives à une question: la question, les trois propositions correspondantes et la bonne réponse}
quest:String;
repA:String;
repB:String;
repC:String;
bonnerep:String;
end;

type fichier_question=file of Question; {fichier d'enregistrement contenant les questions}

function questionhasard():Integer;
var Num:Longint;
begin
randomize;
Num:=random(62)+1; {on met 50 questions dans le fichier}
questionhasard:=Num;
end;

procedure FichierEnregistrement();{Entrée, Sortie ?}
var q : Question;
fic : fichier_question;
bande : Text;
i: Integer;

begin
assign(bande,'bandequestions.txt');
reset(bande);
assign(fic,'bandequestions2');
rewrite(fic);
for i:=1 to 62 do
begin
readln(bande,q.quest);
readln(bande,q.repA);
readln(bande,q.repB);
readln(bande,q.repC);
readln(bande,q.bonnerep);
write(fic,q);
end;
close(fic);
close(bande);
end;


procedure chargementquestion(unequestion:Question);
var Bande:fichier_question;
begin
assign(Bande,'bandequestions2');
reset(Bande);
seek(Bande,questionhasard());
read(Bande,unequestion);
close(Bande);
end;

var questi:Question;

begin
FichierEnregistrement();
chargementquestion(questi);
write(questi.quest);
end.