Remplir une structure "lecture fichier"

Bonjour à tous,
J'ai besoin de votre aide.
j'ai besoin de lire ce fichier attaché, et de charger mes structures.
le code source et le fichier sont en attaché.
dans un premier temps, je me concentre pour recharger

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
param NO_Staff = 4
 
    ;
param NO_Visits = 20
param :     a     b     :=
0      0   695
1    192   192
2    356   356
3    418   418
4    493   493
5    600   600
6      7     7
7     97    97
8    418   418
9    457   457
10   595   595
11     9     9
12    43    43
13   153   153
14   236   236
15   392   392
16    17    17
17    97    97
18   192   192
19   358   358
20   451   451
21     0   695
;
param Duration[*] :=
 1  139
 2   37
 3   32
 4  102
 5   72
 6   75
 7   49
 8   32
 9  107
10   37
11   25
12   88
13   47
14  118
15  131
16   63
17   52
18  139
19   69
20   98
;

dans mon main j'essaye d'afficher ce que j'ai récupéré,
et là il me donne

Code:

1
2
3
4
5
6
7
Nombre de dépôts est 4
Nombre de Clients est 20
ok param 
.... 0
ok windows
.... 0(donc ce n'est pas chargé)
ok duration

Je ne sais pas comment faire pour savoir si mes structures sont remplies ou pas !!
Je vous remercie d'avance.
Pièce jointe 121208