PROGRAM PRINT(IN1,IN2,OUT1,OUT2,OUTPUT);
VAR IN1,IN2:FILE OF INTEGER;
    OUT1,OUT2:TEXT;
BEGIN
  RESET(IN1);
  REWRITE(OUT1);
REWRITE(OUT2);
  RESET(IN2);
  WRITELN('ENTERING LOOP');
  WHILE NOT EOF(IN1) DO
  BEGIN
    WRITELN(OUT1,IN1^);
    WRITELN(OUT2,IN2^);
    GET(IN1);
    GET(IN2)
  END;
END.