PROGRAM PG ( INPUT, OUTPUT, FILEIN );

LABEL 
      1;

TYPE 
     STRING = PACKED ARRAY [ 1 .. 79 ] OF CHAR;

VAR 
    FILEIN : TEXT;
    LINE : STRING;
    CH: CHAR;
    NUM : INTEGER;
    I: INTEGER;
BEGIN
   RESET ( FILEIN );
   OPEN (OUTPUT,LIST);
   NUM := 0;
   FOR I := 1 TO 24 DO
      WRITELN;
   WHILE NOT EOF ( FILEIN ) DO
      BEGIN
         READLN ( FILEIN, LINE );
         WRITELN ( LINE );
         NUM := SUCC (NUM);
         IF NUM MOD 23 = 0
            THEN
               BEGIN
                  WRITE ('More?');
                  READ(CH);
                  IF CH <> ' '
                     THEN
                        GOTO 1;
               END;
      END;
   1: 
END.