Why wont this work

[SiliconJesus <softichj@cs.montana.edu>]

----------------------------------------------------
--
--I want this to kill if the user enters 4 oh's-
--Procedure for entering in the data it's an array of records
---------------------------------------
    
  WHILE Ide /= "OOOO" LOOP

    I:=I +1;
    Ada.Text_IO.PUT(Item =>"Please enter the Article Id");
    Ada.Text_IO.Get_Line(Item =>Ide, Last =>how_long); 
    Data(I).Id:=Ide;   
    Ada.Text_IO.Skip_Line;
    Ada.Text_IO.PUT_Line(Item =>"Please enter article description");
    Ada.Text_IO.Get_Line(Item =>art_d, Last =>how_long);
    Data(I).desc:=art_d;
    Ada.Text_IO.Skip_Line;
    Ada.Text_IO.PUT_Line(Item =>"Please enter number in stock");
    Ada.Integer_Text_IO.Get(Item =>temp);
    Ada.Text_IO.Skip_Line;
    Data(I).Num:=temp;
    Ada.Text_IO.PUT_Line(Item =>"Please enter price");
    Ada.Float_Text_IO.Get(Item =>temp2);
    Data(I).Value:=temp2;
    
END LOOP;
END Enter;
----------------------------------------------------

		
				,.   '\'\    ,---.
				| \\  l\\l_ //    |     ~NARF!!
				|  \\/ `/  `.|    |      
				| Y |   |   ||  Y |      
				|  \|   |   |\ /  |      
				\   |  o|o  | >  /       
				 \___\_--_ /_/__/        
				 /.-\(____) /--.\        
				 `--(______)----'
				     U// U / \
				     / \  / /|           		   
==========================================================================
|    John M. Softich                | " I wanna live, I wanna love       |
|  softichj@cs.montana.edu          |      but it's a long hard          |
|  Montana State University         |       road out of hell! "          |
|  Http://cs.montana.edu/~softichj  |                ~Manson             |
==========================================================================