PROGRAM READTEST(INFILE,OUTPUT);
VAR NO:INTEGER;
    INFILE:TEXT;
PROCEDURE MYREAD(VAR F:TEXT;VAR I:INTEGER);
BEGIN
READ(F,I);
WRITELN(ORD(F^));
WRITELN(EOF(F));
WHILE(F^=' ') AND NOT EOF(F) DO
  BEGIN
  WRITELN('GETTING F');
  GET(F);
WRITELN('F^ IS ',ORD(F^));
WRITELN('EOF(F) IS ',EOF(F));
  END;
END;
BEGIN
RESET(INFILE);
WRITELN(ORD(INFILE^));
WRITELN(EOF(INFILE));
WHILE NOT EOF(INFILE) DO
  BEGIN
  MYREAD(INFILE,NO);
  WRITELN(NO);
  END;
END.