{*************************************************************

               Le CyberZo‹de Qui Fr‚tille

  http://www.multimania.com/cyberzoide/info/turbo/turbo.htm
               cyberzoide@multimania.com

***************************************************************}


program tp1exo2;
uses crt;

procedure menu(var k:char);
begin
repeat
clrscr;
writeln('[A] - Abandon');
writeln('[B] - Cr‚ation du tableau');
writeln('[C] - Affichage du tableau');
writeln('[D] - Modification d''un ‚l‚ment du tableau');
writeln('[E] - Ajout d''un ‚l‚ment a la fin du tableau');
writeln('[F] - Suppression d''un ‚l‚ment du tableau');
writeln('[G] - Insertion d''un ‚l‚ment dans le tableau');
writeln('[H] - Recherche du plus petit ‚l‚ment dans le tableau');
writeln('[I] - Recherche du plus grand ‚l‚ment dans le tableau');
writeln;
write('Entrez votre choix au clavier.');
readln(k);
k:=upcase(k);
until (k>='A') and (k<='I');
end;

var k:char;

BEGIN
repeat
menu(k);
case k of
'A':writeln('[A] - Abandon');
'B':writeln('[B] - Cr‚ation du tableau');
'C':writeln('[C] - Affichage du tableau');
'D':writeln('[D] - Modification d''un ‚l‚ment du tableau');
'E':writeln('[E] - Ajout d''un ‚l‚ment a la fin du tableau');
'F':writeln('[F] - Suppression d''un ‚l‚ment du tableau');
'G':writeln('[G] - Insertion d''un ‚l‚ment dans le tableau');
'H':writeln('[H] - Recherche du plus petit ‚l‚ment dans le tableau');
'I':writeln('[I] - Recherche du plus grand ‚l‚ment dans le tableau');
end;
readln;
until k='A';
END.