(* Chapter 11 - Program 1 *)
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 *)




{ Result of execution

(This file is displayed on the monitor)

}