Help regarding Help File

["rvr@Networx.net.au" (Bexley)]

Howdie

I'm writing a program that needs to read in from a file, one full page of help

at the moment it looks like this:
   procedure Help is
      Help_char:character ;
   begin
      Open(Help_File,In_File,"tax.hlp");
      while not End_Of_File (Help_File) loop
         Get(Help_File,Help_Char);
         Put(Help_Char);
      end loop; --end_of_file loop
      Close(Help_File);
   end Help;

the problem is that this code isn't moving to the next line when the text in 
the file is..
The result is a page of information being squashed into only a few lines
any Idea's would be apreciated
thanx