{*
   Name: Read quotes from file
   Author: David - Paw-Fox 2006
   Description: Opens a file and reads the quote on screen
   Date: 4th July 06
   Copyright: Paw-Fox 2006
*}

uses crt;
var

F : text;
s : string;


Begin
randomize;
clrscr;
       write('Please enter file name: ');
       readln(s); {store the file name in var "s"}
       assign(F,s); { Assocates the filename with the text variable}
       reset(F); {Open the file that was stored in "F"}
while not EOF(F) do  { So when it reaches the end of the txt file it stop - EOF = End Of File -}
      begin {start the sub begin}
            readln(F,s); {real the file name}
            write(s); {writes the text from the txt file into the screen}
             readln;
end; {end sub heading}
      close(F); {closes the file}
end.