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)