{$mode iso}

program TestGetOnBinaryFiles(fr, output);

const max = 100;

type FileOfReal = file of real;

var fr: FileOfReal;

procedure createfileofreal(var fr: FileOfReal);
   var i: 1..max;
       r: real;
begin
   writeln;
   assign(fr, 'RealNumbers.dat');
   rewrite(fr);
   for i := 1 to max do
      begin
         r := i * 1.95;
         fr^ := r;
         put(fr)
      end ;
   close(fr)
end ;

procedure printfileofreal(var fr: FileOfReal);
begin
   writeln;
   writeln('Contents of file:');
   reset(fr);
   while not eof(fr) do 
      begin 
         writeln(fr^ :3:2); 
         get(fr)
      end ;
   close(fr);
   writeln
end ;

begin
   createfileofreal(fr);
   printfileofreal(fr)
end .