PROGRAM read_a_file;

VAR turkey     : TEXT;
    big_string : STRING[80];

BEGIN  (* main program *)
  ASSIGN(turkey,'READFILE.PAS');
  RESET(turkey);
  WHILE NOT eof(turkey) DO
  BEGIN
    READLN(turkey,big_string);
    WRITELN(big_string);
  END;  (* of WHILE loop *)
  CLOSE(turkey);
END.  (* of program *)