{$mode iso}

program TestGetOnTextfiles(f, output);

var f: text;
    ch: char;

begin
   writeln;
   writeln('Contents of file:');
   writeln;
   assign(f, 'ATextfile.txt');
   reset(f);
   while not eof(f) do
      begin
         ch := f^;
         write(ch);
         get(f)
      end ;
   close(f);
   writeln     
end .