(* Chapter 11 - Programming exercise 1 *)
program Read_A_File;

var Turkey     : TEXT;
    Big_String : string[80];

begin  (* main program *)
   Assign(Turkey,'CH11_1.PAS');

   Reset(Turkey);
   while not Eof(Turkey) do begin
      Readln(Turkey,Big_String);
      Writeln(Big_String);
   end;  (* of while loop *)

   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 twice on the monitor)

}