read in a value;
          while value != Sentinel do begin
            process the value;
            read in a value
          end;