a little help

["F" <phosphorus@libero.it>]

Hello world,
          i'm trying to learn Ada but i've a lot of problems with the
operations with strings.
In particular i've a procedure for the input:

type st is new string;
procedure leggis (j: in out st) is
       c:character;

    begin
           while not end_of_line loop
        get(c); b(ind):=c; ind:=ind+1;
           end loop;
    end leggis;


when i call the first time this procedure i obtain the input string but the
second time nothing happens.....
I think that character return remains in the keyboard buffer, how can I
resolve this problem?????

Excuse me for the scarce clarity of my english.......
Thank you!  :-))