program alidanger;
uses crt,strings;
type tab=array [0..10] of word;
type typaliment=record
     nom:string;
     additif:tab;
     end;
type tabali=array [0..1000] of typaliment;
type tab1=array [1..500] of boolean;
type dangereux=record
     code:word;
     val:string;
     end;
type tab2=array [1..500] of dangereux;
var  h,n,m,j,a,i,b:word;
     al:typaliment;
     s,password,souhait:string;
     aliment:tabali;
     danger:tab1;
     fichieraliment:file of tabali;
     dang:dangereux;
     warning:tab2;
     fichierdanger:file of tab2;

function MinMaj(chaine:string):string;
var i:integer;a:string;
   begin
   a:=('');
   for i:=1 to length(chaine) do
   a:=a + strupper(@chaine[i])^;
   MinMaj:=a;
end;

procedure animation_debut;
  begin
  clrscr;
  gotoxy(16,2);
  for b:=1 to 50 do
      begin
      write('*');
      delay(25);
      end;
      writeln;
      writeln('               |                                                |');
      writeln('               |     BIENVENUE SUR LE PROGRAMME DE CONTROLE     |');
      writeln('               |                 DES ALIMENTS                   |');
      writeln('               |                                                |');
      gotoxy(16,7);
      for b:=1 to 50 do
          begin
          write('*');
          delay(25);
          end;
  end;

procedure percent;
  begin
  if password='MIAGE' then
     begin
     a:=1;
     clrscr;
     for i:=0 to 100 do
         begin
         gotoxy (40,13);
         textcolor (8);
         write (i,'% ');
         delay(50);
         if i=a*3 then
            begin
            b:=a;
            a:=a+1;
            for j:=1 to b do
                begin
                textcolor (8);
                gotoxy(23+j,14);write(char(219),char(219),char(219));
                gotoxy(23+j,15);write(char(219),char(219),char(219));
                gotoxy(30,16);writeln('MIAGE-GI corporation ',char(184));
                gotoxy(30,17);write('----------------------');
                end;
            end;
         end;
clrscr;
gotoxy (30,15);
write ('CHARGEMENT EFFECTUE');
delay (400);
     end;
  end;

procedure animation_enregistrement;
  begin
  s:= '  Enregistrement en cours' ;
  clrscr;
  gotoxy(1,10);
  for j:=1 to 3 do
      begin
      delline;
      write('',s);
      delay(700);
      end;
      clrscr;
      gotoxy(29,10);
      writeln('ENREGISTREMENT EFFECTUE');
      delay(1000);
   end;

procedure animation_recherche;
  begin
  s:= '      Recherche en cours' ;
  clrscr;
  gotoxy(1,10);
  for j:=1 to 3 do
      begin
      delline;
      write('',s);
      delay(700);
      end;
      clrscr;
      gotoxy(29,10);
      writeln('RECHERCHE EFFECTUE');
      delay(1000);
  end;

procedure tri (nbrealiment:word;var tableau1:tabali);
var i,j:word;
    echange_tableau:typaliment;
begin
for i:=1 to nbrealiment do
 begin
  for j:=1 to nbrealiment do
   begin
    if (tableau1[i].nom<tableau1[j].nom) then
     begin
      echange_tableau:=tableau1[j];
      tableau1[j]:=tableau1[i];
      tableau1[i]:=echange_tableau;
     end;
   end;
 end;
end;

procedure dichotomie(nbrealiment:word;nomcherche:string;tableau1:tabali;D:dangereux;var h:string; var trouv:boolean);
var w,milieu,gauche,nbredanger,v,droite,j:word;
    fichieraliment:file of tabali;
    fichierdanger:file of tab2;
    warn,tableau3:tab2;
    tableau2:tabali;
begin
nbredanger:=0;
assign (fichieraliment,'C:\miage\basededonneesAliment.txt');
assign (fichierdanger,'C:\miage\basededonneesDanger.txt');
w:=0;
reset (fichieraliment);
read (fichieraliment,tableau1);
nbrealiment:=tableau1[0].additif[0];
close (fichieraliment);
reset (fichieraliment);
read (fichieraliment,tableau1);
for j:=1 to nbrealiment do
    begin
    read (fichieraliment,tableau1);
    tableau2[j]:=tableau1[j];
    w:=w+1;
    end;
    close (fichieraliment);
    tri(w,tableau2);
    trouv:=false;
    gauche:=1;
    droite:=nbrealiment;
    while (gauche<=droite) and not(trouv) do
        begin
        milieu:=(gauche+droite) div 2;
        if(nomcherche=tableau2[milieu].nom) then
        trouv:=true;
        if(nomcherche<tableau2[milieu].nom) then
           begin
           droite:=milieu-1;
           end;
           if(nomcherche>tableau2[milieu].nom) then
              begin
              gauche:=milieu+1;
              end;
        end;
        reset (fichierdanger);
        read (fichierdanger,warn);
        while not(eof(fichierdanger)) do
          begin
          nbredanger:=nbredanger+1;
          read (fichierdanger,warn);
          end;
          close (fichierdanger);
          reset (fichierdanger);
          read (fichierdanger,warn);
          for j:=1 to nbredanger do
              begin
              read (fichierdanger,warn);
              tableau3[j]:=warn[j];
              end;
              close (fichierdanger);
  if trouv then
      begin
      for j:=1 to tableau2[milieu].additif[0] do
          begin
          for v:=1 to nbredanger do
              begin
              if tableau2[milieu].additif[j]=tableau3[v].code then
              h:=tableau3[v].val;
              if h='dangereux' then exit;
              end;
          end;
      end;
end;

procedure animation_Menu;
var h:word;
begin
clrscr;
textcolor(15);
gotoxy (30,3);
for h:=1 to 22 do
    begin
    write ('*');
    delay (15);
    end;
    writeln;
    writeln ('                             |                    |');
    writeln ('                             |         MENU       |');
    writeln ('                             |                    |');
    gotoxy (30,7);
    for h:=1 to 22 do
        begin
        write ('*');
        delay (15);
        end;
        writeln;
        writeln;
end;

procedure menu1(nbrealiment,nbredanger:word;ali:typaliment;tableau1:tabali;tableau7:tab1);
var souhait,v,i,j,u,t,r:word;
    rep:string[3];
    produit,g:string;
    trouv:boolean;
    fichieraliment:file of tabali;
    fichierdanger:file of tab2;
    warn:tab2;

procedure menu2 (nbrealiment:word;ali:typaliment);
var souhait,nbr,t,i,h,e,f,j,u,r:word;
    fichieraliment:file of tabali;
    tableau1,tableau2:tabali;
    fichierdanger:file of tab2;
    tableau3,tableau4,tableau5,tableau6:tab2;
    dif:boolean;

begin
clrscr;
gotoxy(22,2); writeln('MODIFICATION DE LA LISTE DES ALIMENTS');
gotoxy(22,3); write  ('-------------------------------------');
for i:=1 to 80 do
    begin
    gotoxy(i,5);
    write(char(177));
    end;
    for i:=1 to 80 do
        begin
        gotoxy(i,6);
        write(char(177));
        end;
        for i:=1 to 80 do
            begin
            gotoxy(i,7);
            write(char(177));
            end;
            for i:=1 to 6 do
                begin
                gotoxy(1,7+i);
                write(char(177),char(177),char(177));
                end;
                for i:=1 to 6 do
                    begin
                    gotoxy(78,7+i);
                    write(char(177),char(177),char(177));
                    end;
    for i:=1 to 6 do
       begin
       gotoxy(22,7+i);
       write(char(177),char(177),char(177));
       end;
       for i:=1 to 80 do
           begin
           gotoxy(i,13);
           write(char(177));
           end;
           gotoxy(7,6);writeln('RACCOURCIS');
           gotoxy(41,6);writeln('ACTIONS');
           gotoxy(12,9);writeln('1');
           gotoxy(12,10);writeln('2');
           gotoxy(12,11);writeln('3');
           writeln;writeln;
           gotoxy(29,9);writeln('AJOUTER UN ALIMENT A LA BASE DE DONNEE');
           gotoxy(29,10);writeln('MODIFIER LES INFORMATIONS D''UN ALIMENT');
           gotoxy(29,11);writeln('RETOUR AU MENUS INITIAL');
           writeln;writeln;writeln;
           writeln ('Choisissez votre action … effectuer');
           readln (souhait);
           while ((souhait<>1) and (souhait<>2) and (souhait<>3) ) do
               begin
               writeln('saisie incorrecte');
               writeln('veuillez choisir un des raccourcis pr‚sents dans le menus');
               writeln;
               writeln ('Choisissez votre action … effectuer');
               readln (souhait);
               end;
  case souhait of
1:begin
clrscr;
h:=0;
nbredanger:=0;
assign (fichieraliment,'C:\miage\basededonneesAliment.txt');
assign (fichierdanger,'C:\miage\basededonneesDanger.txt');
gotoxy(20,2);writeln ('AJOUT D'' ALIMENT A LA BASE DE DONNEE');
gotoxy(20,3);write   ('-------------------------------------');
writeln;writeln;
reset (fichierdanger);
read (fichierdanger,tableau3);
while not(eof(fichierdanger)) do
    begin
    nbredanger:=nbredanger+1;
    read (fichierdanger,tableau3);
    end;
    close (fichierdanger);
    reset (fichierdanger);
    read (fichierdanger,tableau3);
    for i:=1 to nbredanger do
        begin
        read (fichierdanger,tableau3);
        tableau4[i]:=tableau3[i];
        end;
        close (fichierdanger);
        reset (fichieraliment);
        read (fichieraliment,tableau1);
        for i:=1 to tableau1[0].additif[0] do
            begin
            read (fichieraliment,tableau1);
            tableau2[i]:=tableau1[i];
            end;
            close(fichieraliment);
            reset(fichieraliment);
            read(fichieraliment,tableau1);
            writeln ('Donner nombre d''aliment … ajouter');
            readln (nbr);
            nbrealiment:=tableau1[0].additif[0]+nbr;
            for i:=tableau1[0].additif[0]+1 to tableau1[0].additif[0]+nbr do
                begin
                writeln('Donner le nom de l''aliment Nø ',i,' … ajouter ');
                readln(ali.nom);
                while(ali.nom='') do
                begin
                writeln('saisie incorrecte');
                writeln('Redonner le nom de l''aliment Nø ',i,' … ajouter');
                readln(ali.nom);
                end;
                writeln('Donner le nombre d''additifs de l''aliment Nø ',i,' … ajouter');
                readln(ali.additif[0]);
                while(ali.additif[0]>10) do
                   begin
                   writeln('saisie incorrecte');
                   writeln ('Redonner le nombre d''additifs de l''aliment Nø ',i,' … ajouter');
                   readln (ali.additif[0]);
                   end;
                   for j:=1 to ali.additif[0] do
                       begin
                       dif:=true;
                       writeln ('Donner le num‚ro de l''additif nø ',j,' … ajouter');
                       readln (ali.additif[j]);
                       for e:=1 to h do
                           begin
                           if tableau6[e].code=ali.additif[j] then
                           dif:=false;
                           end;
        if dif then
           begin
           dang.code:=ali.additif[j];
           odd(ali.additif[j]);
           if odd(ali.additif[j]) then
           tableau7[ali.additif[j]]:=false
           else tableau7[ali.additif[j]]:=true;
              if tableau7[ali.additif[j]]=false then
              dang.val:='non dangereux'
              else dang.val:='dangereux';
                 h:=h+1;
                 tableau5[h]:=dang;
           end;
                       end;
tableau2[i]:=ali;
                end;
close (fichieraliment);
rewrite (fichieraliment);
tableau1[0].additif[0]:=nbrealiment;
write (fichieraliment,tableau1);
for i:=1 to nbrealiment do
    begin
    tableau1[i]:=tableau2[i];
    write (fichieraliment,tableau1);
    end;
    close (fichieraliment);
    for i:=nbredanger+1 to nbredanger+h do
        begin
        tableau4[i]:=tableau5[i-nbredanger];
        end;
        rewrite (fichierdanger);
        for i:=1 to nbredanger+h do
            begin
            tableau3[i]:=tableau4[i];
            write (fichierdanger,tableau3);
            end;
            close (fichierdanger);
            animation_enregistrement;
            menu1(n,m,al,aliment,danger);
 end;

2:begin
clrscr;
nbredanger:=0;
h:=0;
assign(fichieraliment,'C:\miage\basededonneesAliment.txt');
assign(fichierdanger,'C:\miage\basededonneesDanger.txt');
gotoxy(19,2);writeln ('MODIFICATION DES INFORMATIONS DES ALIMENTS');
gotoxy(19,3);write   ('------------------------------------------');
writeln;writeln;
reset(fichieraliment);
read(fichieraliment,tableau1);
nbrealiment:=tableau1[0].additif[0];
close(fichieraliment);
reset(fichieraliment);
read (fichieraliment,tableau1);
for i:=1 to tableau1[0].additif[0] do
    begin
    read (fichieraliment,tableau1);
    tableau2[i]:=tableau1[i];
    end;
    close (fichieraliment);
    reset (fichierdanger);
    read (fichierdanger,tableau3);
    while not(eof(fichierdanger)) do
  begin
  nbredanger:=nbredanger+1;
  read (fichierdanger,tableau3);
  end;
  close (fichierdanger);
  reset (fichierdanger);
  read (fichierdanger,tableau3);
  for i:=1 to nbredanger do
      begin
      read (fichierdanger,tableau3);
      tableau4[i]:=tableau3[i];
      end;
      close (fichierdanger);
      writeln ('Donner le nombre d''aliment … modifier');
      readln (u);
        for r:=1 to u do
            begin
            writeln ('Donner le nom de l''aliment Nø ',r,' … modifier');
            readln(ali.nom);
            while (ali.nom='') do
              begin
              writeln('saisie incorrecte');
              writeln ('Redonner le nom de l''aliment Nø ',r,' … modifier');
              readln(ali.nom);
              end;
              for i:=1 to nbrealiment do
                  begin
                  if tableau2[i].nom=ali.nom then
                     begin
                     writeln (tableau2[i].nom);
                     writeln ('le nombre d''additif de l''aliment Nø ',r,' est : ',tableau2[i].additif[0]);
                        for j:=1 to tableau2[i].additif[0] do
                            begin
                            writeln('le code de l''additif Nø ',j,' de l''aliment Nø ',r,' est : ',tableau2[i].additif[j]);
                            end;
                            writeln;
                            writeln('Donner le nouveau nom de l''aliment Nø ',r);
                            readln(ali.nom);
                            while (ali.nom='') do
                              begin
                              writeln('saisie incorrecte');
                              writeln('Redonner le nouveau nom de l''aliment Nø ',r);
                              readln(ali.nom);
                              end;
                            writeln('Donner le nouveau nombre d''additifs de cet aliment');
                            readln(ali.additif[0]);
           while (ali.additif[0]>10) do
             begin
             writeln('saisie incorrecte');
             writeln('Redonner le nouveau nombre d''additifs de cet aliment');
             readln(ali.additif[0]);
             end;
           for t:=1 to ali.additif[0] do
             begin
             dif:=true;
             writeln('Donner le nouveau code de l''additif Nø ',t);
             readln(ali.additif[t]);
              for e:=1 to h do
                  begin
                  if tableau6[e].code=ali.additif[t] then dif:=false;
                  end;
                  if dif then begin
                  dang.code:=ali.additif[t];
                  odd(ali.additif[t]);
                     if odd(ali.additif[t]) then
                        tableau7[ali.additif[t]]:=false
                     else tableau7[ali.additif[t]]:=true;
                  if tableau7[ali.additif[t]]=false then
                     dang.val:='non dangereux'
                  else dang.val:='dangereux';
                  h:=h+1;
                  tableau6[h]:=dang;
                               end;
                  end;
                  tableau2[i]:=ali;
             end;
           end;
           rewrite (fichieraliment);
           tableau1[0].additif[0]:=nbrealiment;
           write (fichieraliment,tableau1);
           for i:=1 to nbrealiment do
               begin
               tableau1[i]:=tableau2[i];
               write (fichieraliment,tableau1);
               end;
               close (fichieraliment);
               for i:=nbredanger+1 to nbredanger+h do
                   begin
                   tableau4[i]:=tableau6[i-nbredanger];
                   end;
                   rewrite (fichierdanger);
                   for i:=1 to nbredanger+h do
                       begin
                       tableau3[i]:=tableau4[i];
                       write (fichierdanger,tableau3);
                       end;
                       close (fichierdanger);
        end;
        animation_enregistrement;
        menu1(n,m,al,aliment,danger);
    end;

3:begin
  menu1(n,m,al,aliment,danger);
  end;
end;
end;

procedure menu3 (tableau7:tab1;nbredanger:word);
var nbreAjoutCode,souhait,e,i,j,f,r,t,u:word;
    fichierdanger:file of tab2;
    tableau8:tab2;
begin
clrscr;
gotoxy(16,2); writeln('MODIFICATION DE LA LISTE DES CODES DES ADDITIFS');
gotoxy(16,3); write  ('-----------------------------------------------');
for i:=1 to 80 do
    begin
    gotoxy(i,5);
    write(char(177));
    end;
    for i:=1 to 80 do
        begin
        gotoxy(i,6);
        write(char(177));
        end;
        for i:=1 to 80 do
            begin
            gotoxy(i,7);
            write(char(177));
            end;
            for i:=1 to 6 do
                begin
                gotoxy(1,7+i);
                write(char(177),char(177),char(177));
                end;
                for i:=1 to 6 do
                    begin
                    gotoxy(78,7+i);
                    write(char(177),char(177),char(177));
                    end;
                    for i:=1 to 6 do
                        begin
                        gotoxy(22,7+i);
                        write(char(177),char(177),char(177));
                        end;
                        for i:=1 to 80 do
                            begin
                            gotoxy(i,13);
                            write(char(177));
                            end;
gotoxy(7,6);writeln('RACCOURCIS');
gotoxy(41,6);writeln('ACTIONS');
gotoxy(12,9);writeln('1');
gotoxy(12,10);writeln('2');
gotoxy(12,11);writeln('3');
writeln;writeln;
gotoxy(29,9);writeln('AJOUTER DES ADDITIFS A LA BASE DE DONNEE ');
gotoxy(29,10);writeln('MODIFIER LES INFORMATIONS DU CODE D''UN ADDITIF');
gotoxy(29,11);writeln('RETOUR AU MENU INITIAL');
writeln;writeln;writeln;
writeln ('Choisissez votre action … effectuer');
readln (souhait);
while ((souhait<>1) and (souhait<>2) and (souhait<>3) ) do
   begin
   writeln('saisie incorrecte');
   writeln('veuillez choisir un des raccourcis pr‚sents dans le menus');
   writeln;
   writeln ('Choisissez votre action … effectuer');
   readln (souhait);
   end;
case souhait of
1:begin
clrscr;
nbredanger:=0;
assign (fichierdanger,'C:\miage\basededonneesDanger.txt');
gotoxy(20,2);writeln('AJOUT D''ADDITIFS A LA BASE DE DONNEE');
gotoxy(20,3);write  ('------------------------------------');
writeln;
writeln;
writeln('Donner le nombre d''additifs … ajouter');
readln(nbreAjoutCode);
reset(fichierdanger);
while not(eof(fichierdanger)) do
    begin
    nbredanger:=nbredanger+1;
    read (fichierdanger,warn);
    end;
    close (fichierdanger);
    reset (fichierdanger);
    for i:=1 to nbredanger do
        begin
        read (fichierdanger,warn);
        tableau8[i]:=warn[i];
        end;
        for i:=nbredanger+1 to nbredanger+nbreAjoutCode do
            begin
            writeln ('donner la valeur du code Nø ',i,' de l''additif … ajouter');
            readln (j);
            for f:=1 to nbredanger do
                begin
                while tableau8[f].code=j do
                   begin
                   writeln ('ce code existe d‚ja');
                   delay(500);
                   writeln ('redonner la valeur du code Nø ',i,' … ajouter');
                   readln (j);
                   end
                end;
                odd(j);
                if odd(j) then
                tableau7[j]:=false
                else tableau7[j]:=true;
                   if tableau7[j]=false then
                   tableau8[i].val:='non dangereux'
                   else tableau8[i].val:='dangereux';
            tableau8[i].code:=j;
            end;
            rewrite(fichierdanger);
            for i:=1 to nbredanger+nbreAjoutCode do
                begin
                warn[i]:=tableau8[i];
                write(fichierdanger,warn);
                end;
                close (fichierdanger);
                animation_enregistrement;
                menu1(n,m,al,aliment,danger);
 end;

2:begin
  clrscr;
  nbredanger:=0;
  assign (fichierdanger,'C:\miage\basededonneesDanger.txt');
  textcolor (15);
  gotoxy(15,2);writeln('MODIFICATION DES INFORMATIONS DU CODE D''UN ADDITIF');
  gotoxy(15,3);write  ('---------------------------------------------------');
  writeln;writeln;
  reset (fichierdanger);
  read (fichierdanger,warn);
  while not(eof(fichierdanger)) do
        begin
        nbredanger:=nbredanger+1;
        read (fichierdanger,warn);
        end;
        close (fichierdanger);
        reset (fichierdanger);
        read(fichierdanger,warn);
        for i:=1 to nbredanger do
            begin
            read (fichierdanger,warn);
            tableau8[i]:=warn[i];
            end;
            close (fichierdanger);
            writeln ('Donner nombre de code … modifier');
            readln (u);
            for i:=1 to u do
                begin
                writeln ('Donner la valeur du code Nø ',i,' … modifier');
                readln (j);
                writeln ('Donner la nouvelle valeur du code Nø ',i,' … modifier');
                readln (f);
                odd(f);
                if odd(f) then tableau7[f]:=false
                else tableau7[f]:=true;
                for e:=1 to nbredanger do
                    begin
                    if tableau8[e].code=j then
                       begin
                       tableau8[e].code:=f;
                       if tableau7[f]=false then
                       tableau8[e].val:='non dangereux'
                       else tableau8[e].val:='dangereux';
                       end;
                    end;
                    tableau7[j]:=tableau7[f];
                    j:=f;
               end;
               rewrite (fichierdanger);
               for i:=1 to nbredanger do
                   begin
                   warn[i]:=tableau8[i];
                   write (fichierdanger,warn);
                   end;
                   close (fichierdanger);
                   animation_enregistrement;
                   menu1(n,m,al,aliment,danger);
  end;

3:begin
  menu1(n,m,al,aliment,danger);
  end;
end;
end;
begin
assign(fichieraliment,'C:\miage\basededonneesAliment.txt');
assign(fichierdanger,'c:\miage\basededonneesDanger.txt');
animation_Menu;
writeln;
writeln;
writeln;
for i:=1 to 80 do
    begin
    gotoxy(i,10);
    write(char(177));
    end;
    for i:=1 to 80 do
        begin
        gotoxy(i,11);
        write(char(177));
        end;
        for i:=1 to 80 do
            begin
            gotoxy(i,12);
            write(char(177));
            end;
            for i:=1 to 9 do
                begin
                gotoxy(1,12+i);
                write(char(177),char(177),char(177));
                end;
                for i:=1 to 9 do
                    begin
                    gotoxy(78,12+i);
                    write(char(177),char(177),char(177));
                    end;
for i:=1 to 9 do
    begin
    gotoxy(22,12+i);
    write(char(177),char(177),char(177));
    end;
    for i:=1 to 80 do
        begin
        gotoxy(i,21);
        write(char(177));
        end;
        gotoxy(7,11);writeln('RACCOURCIS');
        gotoxy(41,11);writeln('ACTIONS');
        gotoxy(12,14);writeln('1');
        gotoxy(12,15);writeln('2');
        gotoxy(12,16);writeln('3');
        gotoxy(12,17);writeln('4');
        gotoxy(12,18);writeln('5');
        gotoxy(12,19);writeln('6');
        writeln;writeln;
        gotoxy(29,14);writeln('LA LISTE DES ALIMENTS ET LEURS ADDITIFS ');
        gotoxy(29,15);writeln('LA LISTE DES CODES DES ADDITIFS ');
        gotoxy(29,16);writeln('MODIFIER LA LISTE DES ALIMENTS');
        gotoxy(29,17);writeln('MODIFIER LA LISTE DES CODES DES ADDITIFS ');
        gotoxy(29,18);writeln('RECHERCHER LE NIVEAU DE DANGEROSITE D''UN ALIMENT');
        gotoxy(29,19);writeln('SORTIR DU PROGRAMME ');
        writeln;writeln;writeln;
        writeln ('Choisissez votre action … effectuer');
        readln (souhait);
        while ((souhait<>1) and (souhait<>2) and (souhait<>3) and (souhait<>4) and (souhait<>5) and (souhait<>6)) do
           begin
           writeln('saisie incorrecte');
           writeln('veuillez choisir un des raccourcis pr‚sents dans le menus');
           writeln;
           writeln ('Choisissez votre action … effectuer');
           readln(souhait);
           end;
case souhait of
1:begin
  assign (fichieraliment,'C:\miage\basededonneesAliment.txt');
  assign (fichierdanger,'C:\miage\basededonneesDanger.txt');
  clrscr;
  gotoxy(19,2);writeln('LA LISTE DES ALIMENTS ET LEURS ADDITIFS');
  gotoxy(19,3);write  ('---------------------------------------');
  writeln;writeln;writeln;
  writeln ('Aliment(s) ','|', ' Additif(s)':11);
  write   ('---------- | ----------');
  writeln;
  reset (fichieraliment);
  read(fichieraliment,tableau1);
  nbrealiment:=tableau1[0].additif[0];
  for i:=1 to  nbrealiment do
      begin
      read (fichieraliment,tableau1);
      write (tableau1[i].nom:8);
      for j:=1 to tableau1[i].additif[0] do
          begin
          write (tableau1[i].additif[j]:7);
          end;
          writeln;
      end;
      close (fichieraliment);
      writeln;
      writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');
      readln (rep);
      while ((rep<>'oui') and (rep<>'OUI') and (rep<>'o') and (rep<>'non') and (rep<>'NON') and (rep<>'n') and (rep<>'O') and (rep<>'N')) do
         begin
         writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');
         readln (rep);
         end;
         if ((rep='oui') or (rep='OUI') or (rep='O') or (rep='o')) then
         menu1(n,m,al,aliment,danger);
         if ((rep='non') or (rep='NON') or (rep='N') or (rep='n')) then
         exit;
  end;

2:begin
  clrscr;
  assign (fichieraliment,'C:\miage\basededonneesAliment.txt');
  assign (fichierdanger,'c:\\miage\basededonneesDanger.txt');
  gotoxy(24,2);writeln('LA LISTE DES CODES DES ADDITIFS');
  gotoxy(24,3);write  ('-------------------------------');
  writeln;writeln;writeln;
  reset (fichierdanger);
  reset (fichieraliment);
  read (fichieraliment,tableau1);
  while not(eof(fichierdanger)) do
     begin
     nbredanger:=nbredanger+1;
     read (fichierdanger,warn);
     end;
     close (fichierdanger);
     reset (fichierdanger);
     for h:=1 to 43 do
         begin
         gotoxy(17+h,6);write(char(219));
         gotoxy(17+h,7);write(char(219));
         gotoxy(17+h,8);write(char(219));
         end;
         gotoxy(20,7);writeln ('CODE DES ADDITIFS');
gotoxy(40,7);writeln('ETAT DE DANGEROSITE');
writeln;
for i:=1 to nbredanger do
    begin
    read (fichierdanger,warn);
    gotoxy(28,8+i);write (warn[i].code);
    gotoxy(42,8+i);write(warn[i].val);
    writeln;
    end;
    close (fichierdanger);
    close (fichieraliment);
    writeln;writeln;
    writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');
    readln (rep);
    while ((rep<>'oui') and (rep<>'OUI') and (rep<>'o') and (rep<>'non') and (rep<>'NON') and (rep<>'n') and (rep<>'O') and (rep<>'N')) do
      begin
      writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');;
      readln (rep);
      end;
      if ((rep='oui') or (rep='OUI') or (rep='O') or (rep='o')) then
      menu1(n,m,al,aliment,danger);
         if ((rep='non') or (rep='NON') or (rep='n') or (rep='N')) then
         exit;
end;

3:begin
    menu2(nbrealiment,ali);
  end;

4:begin
  menu3(tableau7,nbredanger);
  end;

5:begin
  clrscr;
  gotoxy(13,2);writeln ('RECHERCHER LE NIVEAU DE DANGEROSITE D''UN ALIMENT');
  gotoxy(13,3);write   ('-------------------------------------------------');
  writeln;writeln;
  writeln ('Donner le nombre d''aliment … rechercher');
  readln (v);
  for i:=1 to v do
      begin
      writeln ('Donner le nom de l''aliment Nø ',i,' … rechercher');
      readln (produit);
      while (produit='') do
      begin
      writeln('saisie incorrecte');
      writeln('Redonner le nom de l''aliment Nø ',i,' … rechercher');
      readln(produit);
      end;
      dichotomie (n,produit,aliment,dang,g,trouv);
      Animation_recherche;
      clrscr;
      writeln;
      textcolor (15);
      if trouv then
      writeln (minmaj(produit),' aliment ',g,' pour les enfants');
      if not(trouv) then writeln ('Aliment non repertori‚');
      writeln;
      end;
      writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');
      readln (rep);
      while ((rep<>'oui') and (rep<>'OUI') and (rep<>'o') and (rep<>'non') and (rep<>'NON') and (rep<>'n') and (rep<>'O') and (rep<>'N')) do
         begin
         writeln('saisie incorrecte');
         writeln ('voulez-vous revenir au menu initial : oui(o) ou non(n) ?');
         readln (rep);
         end;
         if ((rep='oui') or (rep='OUI') or (rep='O') or (rep='o')) then
         menu1(n,m,al,aliment,danger);
         if ((rep='non') or (rep='NON') or (rep='N') or (rep='n')) then
         exit;
  end;

6:begin
    exit;
  end;
end;
end;

begin
     for h:=1 to 10 do
     clrscr;
     animation_debut;
     //writeln('NB : sur le premiŠre page du fascicule est pr‚sent un mot de passe pour');
     //writeln('acc‚der au programme veuillez le garder en lieu sure');
     delay(1000);
     gotoxy(28,13);
     write('MOT DE PASSE : ');
     readln(password);
     while (password<>'MIAGE') do
     begin
     sound(144);
     gotoxy(24,15);
     writeln('mot de passe incorrect');
     writeln;
     writeln('voulez-vous reessayer : oui(o) ou non(n) ?');
     readln(souhait);
          if (souhait='non') or (souhait='NON') or (souhait='n') or (souhait='N')then
          begin

          writeln;
          writeln('MERCI');
          delay(1000);
          exit;

          end ;
              if (souhait='oui') or (souhait='OUI') or (souhait='o') or (souhait='O') then
              begin
              clrscr;
              gotoxy(1,10);
              writeln('veuillez retap‚ le mot de passe correctement en');
              writeln ('respectant les lettres minuscules et majuscules');
              writeln;
              writeln;
              write('                     ','Redonner le MOT DE PASSE : ');
              readln(password);
              end;
     end;
              clrscr;
              percent;
              menu1(n,m,al,aliment,danger);
    writeln;
    write('                ****************************************** ');
    writeln;
    writeln ('                |                                        |');
    writeln ('                |            FIN  DE TRAITEMENT          |');
    writeln ('                |                                        |');
    write('                ******************************************');
    delay (1000);
end.