writing with sequential_Io

[Eric <jj091849@er.uqam.ca>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1300 bytes --]


I'd like to know if someone can find the errors in this file:
--------------------------------------------------------------
procedure Enrigistrer_Fichier_Produits is 

Fichier_Entrep : ES_Fichiers.File_Type;
Nom_Du_Fichier : String(1..Long_Max_Nom_Fich);

--Variables locales
    Produit        : Type_Produit;
   
    i              : Natural:=0;
    j              : Natural:=1;
    k              : Natural:=1;
    l              : Natural:=0;


begin 
Put(Item=> "Quel va etre le nom de sauvegruard du fichier ? ");
get(Nom_Du_Fichier);

Es_fichiers.create(File => Fichier_Entrep,
       Mode => Es_fichiers.Out_File,
       Name => Nom_Du_Fichier  );
     --affichage des donnes � l'ecran
  Put(Item =>"Numero:   nature:  model:  qnt. Inventaire:  qnt. Vendu: 
Prix: ");
  while not end_of_file loop
   for i IN j..j+9 loop
  Es_Naturel.Put(Item=> t(i).numero);
  Es_Enumeration.Put(Item=> t(i).nature);
  Put(Item=> t(i).modele);
  Es_Naturel.Put(Item=> t(i).Qte_Inventaire);
  Es_Naturel.Put(Item=> t(i).Qte_Vendue);
  es_Reels.Put(Item=> t(i).Prix_Unitaire);


  Es_Fichiers.Write(File => Fichier_Entrep,  
                    Item => T(i));
                            
                           
end loop;--for   
  j:=j+10;
end loop;--while



  
end Enrigistrer_Fichier_Produits;