EOLN                     Returns TRUE If at End of Line

 EOLN(var InFile : text) : Boolean;

    Tests if the end of the current line has been reached. That is,
    Infile's file pointer is pointing to a Carriage Return. Returns TRUE
    if it is the end of the current line; otherwise, returns FALSE.

          InFile    Any text file previously opened for input (using
                    Assign and Reset).

          Notes:    This function is used only when reading from text
                    files, and then only if individual items are being
                    read (via Read) from a given line.

                    If EOF (Infile) is TRUE, EOLN (Infile) is also TRUE.

  -------------------------------- Example ---------------------------------

           while not EOLN(TFile) do begin
             Read(TFile,Ch);
             Process(Ch)
           end;
           Readln(TFile);