Interger_io get and Text_io.Get_line

["CheGueVerra" <chegueverra@hotmail.com>]

I figured out who to play with the strings and get the desired length out of
my strings, but now I have an other trouble.

When I try to Get an Integer and then Get_line a String, the Integer works
great, but it seems to jumps over the Get_line.

[Code Snippet]
with Text_io;
use Text_io;

Procedure TestString is
 subType MyString is string(1..10);

 package Entiers is new Text_io.Integer_io (Num => Integer);

   Last   : Natural := 0;
   TstStr : MyString;
 Number : integer;
begin
 Put_line("Test of string 10");
 Put_line("Enter a number");
 Entiers.get(Number);
 New_line;
 Put_line("Enter a string");
 ====
 it seems to skip this line and go directly to the Put_line
 Get_Line(TstStr, Last);
 =====
 Put_line(TstStr(TstStr'First..TstStr'Last));
 Entiers.Put(Number);
end TestString;


So, I figure that I'm doing something wrong  AGAIN, and been trying to
figure what, but after a couple of hours trying I'm getting really mad with
myself and ada, I feel like I can't even write code anymore, because this is
really basic stuff and I can't seem to figure it out

CheGueVerra