Input loop is part of Short Circuit's Console Program Basics selection.
Task

Read from a text stream either word-by-word or line-by-line until the stream runs out of data.

The stream will have an unknown amount of data on it.




{ for stdio }
 
var
 
 s : string ;
 
begin 
 
  repeat
 
    readln(s);
 
  until s = "" ;
 
{ for a file }
 
var 
 
 f : text ;
 s : string ;
 
begin
 
  assignfile(f,'foo');
  reset(f);
 
  while not eof(f) do
    readln(f,s);
 
  closefile(f);
 
end;