jumping a loop

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

jj091849@er.uqam.ca
I have writen the followinf (simple!!)program.
at the beginning it's jumping a loop.
compile and run and the first item is jump!
Could you help me with this .
thanK's  (compiled with object ada7.1)
-------------------------------------------------

 with text_io;    use text_io;
procedure essai is
PACKAGE ES_Entiers IS NEW Text_io.Integer_IO(Num=> Integer);
TYPE File_Mode IS (In_File,Out_File);
lki,auteur,source,ref,idn:string(1..32);



  type t_item is record      
        item     :string(1..32);
        an,mois,jour,heure,min :NATURAL:=0;
   end record;
   v_item: Array(1..10) of t_item;
      iter,long,i:natural:=0;
   begin            

    text_io.put("Combiens de items � entrez (0-10)");
    Es_Entiers.get(item=> iter);
    
    
    for i In 1..Iter loop 
   
text_io.put(item=>"item : ");
get_line(v_item(i).item,last=>long);
text_io.New_Line(2);
long:=0;




    end loop;
    end essai ;