voila, je suis occupé sur un project pour mon cours de computing mais je cale sur une procedure

je vourdrais mettre des details provenant de differents fichiers dans une meme procedure

voila mon code

les deux fichiers sont centre.dat et examiner.dat
le details de fichier qui manque est examiner[ptr].examinerno
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure subjectlistexaminer;
  var ptr: integer;
 begin
  AssignFile (centrefile, 'centre.dat');
  Reset (centrefile);
  Ptr := 0;
  Write ('-Sub. Ref. Code-  -Examiner number-  -Centre number-  -Centre name-');
  while not eof (centrefile)
  do
  begin
    Ptr := Ptr + 1;
    Writeln ('');
    Read (centrefile, centre [Ptr]);
    Writeln ('');
    Write ('     ',centre[Ptr].subrefcode);
    Writeln ('                  ',centre[Ptr].centreno,'       ',centre[Ptr].centrename);
    //Writeln (details du fichier examiner.dat)
  end;
  Readln;
  closefile (centrefile);
 end;
Ce serait sympa si je pouvais avoir une réponse assez rapidement ... merci