Bonjours à tous.
Je vous écris car j'ai un souci dans mon programme.
Turbo Pascal 7.0 veux me mettre une parenthèse après mon type personnel quand je le met dans mon programme (appel tout simple, with ...)

Je vous mets mon code actuel, c'est le résultat d'un TD de Projet en L2 d'info

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
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
Program Super_Libraire ;
 
Const max_personnel = 40 ;
      max_bouquin = 50 ;
 
Type statut = (Employe, Stagiaire, Boss) ;
 
Type Personne = record
                 nom, prenom, mdp, adresse, nom_tel, date_naissance : string ;
                 stat : statut ;
                end ;
 
Type tablo_personne = array[1..max_personnel] of personne ;
 
Type personnel = record
                  liste : tablo_personne ;
                  effectif : integer ;
                 end ;
 
Type categorie = (Science, Literature, Autre) ;
 
Type rayon = (Sud, Est, Ouest, Nord) ;
 
Type lieu = (Magasin, Stock, Commande) ;
 
Type lieu_sioux = record
                   le_lieu : lieu ;
                   nb : integer ;
                  end ;
 
Type livre = record
              titre, auteur, editeur, reference : string ;
              mes_cat : categorie ;
              mes_rayons : rayon ;
              annee_sortie : integer ;
              prix : real ;
              statut_livre : lieu_sioux ;
              nb_vendu : integer ;
             end ;
 
Type ma_librairie = array[1..max_bouquin] of livre ;
 
Type librairie = record
                  une_librairie : ma_librairie ;
                  nb_total_bouquin : integer ;
                 end ;
 
Procedure recherche_conec(don_nom, don_prenom : string ; Var son_mdp : string ; Var existe : boolean) ;
    Var i : integer ;
Begin
     for i := 1 to personnel.effectif do
          if (don_nom = personnel.liste[i].nom) and (don_prenom = personnel.liste[i].prenom) then
          begin
          existe := true ;
          son_mdp := personnel.liste[i].mdp ;
          end
          else
          existe := false ;
end ;
 
Function connection : boolean ;
    Var nom, prenom, mdp : string ;
        existance : boolean ;
 
    Procedure recup_info(Var n, p, m : string) ;
    Begin
    Writeln('Veuillez entre votre nom.') ;
    Readln(n) ;
    Writeln('Veuillez entrer votre prenom.') ;
    Readln(p) ;
    Writeln('Veuillez entrer votre mot de passe. (… l abrit des regard)') ;
    Readln(m) ;
    end;
Begin
recup_info(nom, prenom, mdp) ;
writeln('Vous vous identifiez comme : ', nom, ' ', prenom, '.') ;
writeln('Nous allons vérifier si vous appartenez au personnel') ;
recherche_conec(nom, prenom, a_verif, existance) ;
if not existance then
Begin
     writeln('Vous n existez pas dans la base de donn‚e du personnel') ;
     writeln('Veulliez contacter votre patron') ;
end
else
writeln('Vous existez au sein de la librairie.') ;
{Vérif mdp}
writeln('Vous êtes maintenant connecté') ;
connection := true ;
end ;
 
Begin
Writeln('Super Libraire') ;
While not connection do
connection ;
writeln('Vous allez être déconnecté ...') ;
readln ;
end.