VITAMIN.PAS

{ @author: Sylvain Maltais (support@gladir.com)
  @created: 2022
  @website(https://www.gladir.com/alimbase)
  @abstract(Target: Turbo Pascal, Free Pascal)
}

Program VITAMIN;

Type
 Aliment=Record
  Nom:String[20];
  VitaminA:Byte;
  VitaminB1:Byte;
  VitaminB2:Byte;
  VitaminB3:Byte;
  VitaminB5:Byte;
  VitaminB6:Byte;
  VitaminB8:Byte;
  VitaminB9:Byte;
  VitaminB12:Byte;
  VitaminC:Byte;
  VitaminD:Byte;
  VitaminE:Byte;
  VitaminK:Byte;
 End;

 VitaminRec=Record
  Code:String[2];
  Nom:String[30];
  FormuleChimique:String[20];
 End;

Const
 Vitamins:Array[0..8]of VitaminRec=(
  (Code:'B1';
   Nom:'Thiamine';
   FormuleChimique:'C12H17N4OS'),
  (Code:'B2';
   Nom:'Riboflavine';
   FormuleChimique:'C17H20N4O6'),
  (Code:'B3';
   Nom:'Niacine';
   FormuleChimique:'C6H5NO2'),
  (Code:'B4';
   Nom:'Ad‚nine';
   FormuleChimique:'C5H5N5'),
  (Code:'B5';
   Nom:'Acide pantoth‚nique';
   FormuleChimique:'C9H17NO5'),
  (Code:'B8';
   Nom:'Biotine';
   FormuleChimique:'C10H16N2O3S'),
  (Code:'B9';
   Nom:'Acide folique';
   FormuleChimique:'C19H19N7O6'),
  (Code:'B12';
   Nom:'Cobalamine';
   FormuleChimique:'C72H100CoN18O17P'),
  (Code:'C';
   Nom:'Acide ascorbique';
   FormuleChimique:'C6H8O6')
  );

 Aliments:Array[0..120]of Aliment=(
  (Nom:'Abricot';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:15;
  VitaminD:0;
  VitaminE:9;
  VitaminK:0),
  (Nom:'Ail';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:16;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:13;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Amande';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:91;
  VitaminK:0),
  (Nom:'Ananas';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:6;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:82;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Arbouse';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:15;
  VitaminD:0;
  VitaminE:8;
  VitaminK:0),
  (Nom:'Asperge';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:14;
  VitaminK:57),
  (Nom:'Baie de goji';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:98;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Banane';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:24;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:17;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Bardane';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:26;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Bergamote';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:75;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Bette';
  VitaminA:28;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:28;
  VitaminD:0;
  VitaminE:0;
  VitaminK:100),
  (Nom:'Betterave';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Bleuet';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:3;
  VitaminD:0;
  VitaminE:4;
  VitaminK:17),
  (Nom:'Canneberge';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:21;
  VitaminD:0;
  VitaminE:16;
  VitaminK:9),
  (Nom:'Carambole';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:51;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Cardon';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:2;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Carotte';
  VitaminA:66;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:0;
  VitaminK:13),
  (Nom:'C‚leri';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:8;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:8;
  VitaminD:0;
  VitaminE:0;
  VitaminK:38),
  (Nom:'C‚leri-rave';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:8;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:11;
  VitaminD:0;
  VitaminE:0;
  VitaminK:42),
  (Nom:'Cerise';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:27;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Chƒtaigne';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:15;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:10;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Chƒtaigne d''eau';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:6;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Cherimole';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:9;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:15;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Chou-rave';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:6;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:79;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Citron';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:4;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:74;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Coeur de palmier';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:44;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Coing';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:2;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:23;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Crosse de fougŠre';
  VitaminA:17;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:30;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Datte';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:10;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Durian';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:21;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:40;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Echalote';
  VitaminA:5;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:16;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:11;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Epinard';
  VitaminA:100;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:100),
  (Nom:'FaŒne';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:11;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:8;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Feijoa';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:34;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Fenouil';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:9;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Figue';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:3;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:3),
  (Nom:'Figue de Barbarie';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:3;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:24;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Fraise';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:80;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Framboise';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:29;
  VitaminD:0;
  VitaminE:4;
  VitaminK:5),
  (Nom:'Goyave';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Graine de s‚same';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:4;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Graine de tournesol';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:100;
  VitaminK:0),
  (Nom:'Grenade';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:13;
  VitaminD:0;
  VitaminE:0;
  VitaminK:16),
  (Nom:'Groseille';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:41;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Igname';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:11;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Jaboticaba';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:28;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Jaque';
  VitaminA:16;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:15;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Jicama';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:24;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Jujube';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:3;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:81;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Kaki';
  VitaminA:1;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:8;
  VitaminK:0),
  (Nom:'Kiwi';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:13;
  VitaminK:6),
  (Nom:'Kumquat';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:70;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Laitue Boston';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:74),
  (Nom:'Lime';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:33;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Litchi';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Longane';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:90;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Malanga';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:9;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Mandarine';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:37;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Mangue';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:48;
  VitaminD:0;
  VitaminE:12;
  VitaminK:5),
  (Nom:'Mangoustan';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Manioc';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:34;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Melon';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:3;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:55;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Melon a cornes';
  VitaminA:5;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:4;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:10;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Mure';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:6;
  VitaminD:0;
  VitaminE:7;
  VitaminK:6),
  (Nom:'Myrtille';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Navet';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:16;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Nectarine';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:12;
  VitaminD:0;
  VitaminE:11;
  VitaminK:0),
  (Nom:'Nefle';
  VitaminA:6;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:4;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Noisette';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:52;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Noix';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:9;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Noix du Br‚sil';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:20;
  VitaminK:0),
  (Nom:'Noix de cajou';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:15),
  (Nom:'Noix du ginkgo';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:19;
  VitaminK:0),
  (Nom:'Nopal';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:5),
  (Nom:'Oignon jaune';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:8;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Oignon vert';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:100),
  (Nom:'Orange';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pacane';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:4;
  VitaminK:0),
  (Nom:'Pamplemousse';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Panais';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:1),
  (Nom:'Papaye';
  VitaminA:8;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:100;
  VitaminD:0;
  VitaminE:11;
  VitaminK:0),
  (Nom:'Pasteque';
  VitaminA:2;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:11;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Patate';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:28;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:6;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Patate blanche';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:25;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:21;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Patate douce';
  VitaminA:100;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:18;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:37;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Patate rouge';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:20;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:36;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Patate Russet';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:34;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:37;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Peche';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:16;
  VitaminD:0;
  VitaminE:7;
  VitaminK:0),
  (Nom:'Pepino';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:50;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Physalis';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:14;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pignon';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:00;
  VitaminD:0;
  VitaminE:32;
  VitaminK:23),
  (Nom:'Pistache';
  VitaminA:10;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:29;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:27),
  (Nom:'Pitahaya';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:34;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Poire';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:12;
  VitaminD:0;
  VitaminE:0;
  VitaminK:13),
  (Nom:'Poireau';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:0;
  VitaminK:18),
  (Nom:'Pomelo';
  VitaminA:6;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:73;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pomme';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:3;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:9;
  VitaminD:0;
  VitaminE:0;
  VitaminK:1),
  (Nom:'Pomme de terre';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:28;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:6;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pomme de terre blanche';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:25;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:21;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pomme de terre rouge';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:20;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:36;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pomme de terre Russet';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:34;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:37;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Pomme-poire';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:8;
  VitaminD:0;
  VitaminE:0;
  VitaminK:7),
  (Nom:'Pommette';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:2;
  VitaminK:0),
  (Nom:'Pousse de bambou';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:0;
  VitaminD:0;
  VitaminE:4;
  VitaminK:0),
  (Nom:'Prune';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:11;
  VitaminD:0;
  VitaminE:0;
  VitaminK:5),
  (Nom:'Radis';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:15;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Radis noir';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:38;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Radis oriental';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:17;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Raisin';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:14;
  VitaminD:0;
  VitaminE:0;
  VitaminK:15),
  (Nom:'Raisin americain';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:5;
  VitaminD:0;
  VitaminE:0;
  VitaminK:15),
  (Nom:'Raisin europeen';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:14;
  VitaminD:0;
  VitaminE:0;
  VitaminK:15),
  (Nom:'Ramboutan';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:7;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Rhizome de lotus';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:11;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:41;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Rhubarbe';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:7;
  VitaminD:0;
  VitaminE:0;
  VitaminK:19),
  (Nom:'Rutabaga';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:4;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:28;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Salicorne';
  VitaminA:36;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:13;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Salsifis';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:9;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:6;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Sapotille';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:42;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Sureau';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:10;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:46;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0),
  (Nom:'Tamarillo';
  VitaminA:19;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:0;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:50;
  VitaminD:0;
  VitaminE:21;
  VitaminK:0),
  (Nom:'Taro';
  VitaminA:0;
  VitaminB1:0;
  VitaminB2:0;
  VitaminB3:0;
  VitaminB5:0;
  VitaminB6:13;
  VitaminB8:0;
  VitaminB9:0;
  VitaminB12:0;
  VitaminC:20;
  VitaminD:0;
  VitaminE:0;
  VitaminK:0)
 );

Function StrToUpper(S:String):String;
Var
 I:Byte;
Begin
 For I:=1 to Length(S)do Begin
  If S[I]in['‚','Š','ˆ',#233]Then S[I]:='E'Else
  If S[I] in['a'..'z']Then S[I]:=Chr(Ord(S[I])-32);
 End;
 StrToUpper:=S;
End;

Var
 I,J:Integer;

BEGIN
 If(ParamStr(1)='/?')or(ParamStr(1)='--help')or(ParamStr(1)='-h')or
   (ParamStr(1)='/h')or(ParamStr(1)='/H')Then Begin
  WriteLn('VITAMIN : Cette commande permet d''indiquer ',
                   ' les vitamines qu''il contient ');
  WriteLn;
  WriteLn('Syntaxe : VITAMIN fruits');
  WriteLn('          VITAMIN vitamine');
  WriteLn;
  WriteLn(' fruits       Ce parametre permet d''indiquer le fruit a analyser');
  WriteLn(' vitamine     Ce parametre de sortir tous les fruits avec la vitamine');
 End
  Else
 If ParamCount>0Then Begin
  For I:=1 to ParamCount do Begin
   If StrToUpper(ParamStr(I))='A'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminA<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B1'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB1<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B2'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB2<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B3'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB3<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B5'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB5<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B6'Then Begin
     For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB6<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B8'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB8<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B9'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB9<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='B12'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminB12<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='C'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminC<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='D'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminD<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='E'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminE<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   If StrToUpper(ParamStr(I))='K'Then Begin
    For J:=Low(Aliments) to High(Aliments)do If(Aliments[J].VitaminK<>0)Then WriteLn(Aliments[J].Nom);
   End
    Else
   For J:=Low(Aliments) to High(Aliments)do Begin
    If StrToUpper(ParamStr(I))=StrToUpper(Aliments[J].Nom)Then Begin
     If UpCase(Aliments[J].Nom[1])in['A','E','I','O','Y']Then Begin
      Write('L''');
     End
      Else
     Write('Le ');
     WriteLn(Aliments[J].Nom,' contient les proportions de vitamines suivantes :');
     WriteLn;
     If Aliments[J].VitaminA<>0Then WriteLn(Aliments[J].VitaminA,'% de vitamine A');
     If Aliments[J].VitaminB1<>0Then WriteLn(Aliments[J].VitaminB1,'% de vitamine B1');
     If Aliments[J].VitaminB2<>0Then WriteLn(Aliments[J].VitaminB2,'% de vitamine B2');
     If Aliments[J].VitaminB3<>0Then WriteLn(Aliments[J].VitaminB3,'% de vitamine B3');
     If Aliments[J].VitaminB5<>0Then WriteLn(Aliments[J].VitaminB5,'% de vitamine B5');
     If Aliments[J].VitaminB6<>0Then WriteLn(Aliments[J].VitaminB6,'% de vitamine B6');
     If Aliments[J].VitaminB8<>0Then WriteLn(Aliments[J].VitaminB8,'% de vitamine B8');
     If Aliments[J].VitaminB9<>0Then WriteLn(Aliments[J].VitaminB9,'% de vitamine B9');
     If Aliments[J].VitaminB12<>0Then WriteLn(Aliments[J].VitaminB12,'% de vitamine B12');
     If Aliments[J].VitaminC<>0Then WriteLn(Aliments[J].VitaminC,'% de vitamine C');
     If Aliments[J].VitaminD<>0Then WriteLn(Aliments[J].VitaminD,'% de vitamine D');
     If Aliments[J].VitaminE<>0Then WriteLn(Aliments[J].VitaminE,'% de vitamine E');
     If Aliments[J].VitaminK<>0Then WriteLn(Aliments[J].VitaminK,'% de vitamine K');
     WriteLn;
    End;
   End;
  End;
 End;
END.