$debug on$  (*Show line numbers*)

program filedemo (output);
type
  ifile = file of integer;
var
  f: ifile;
  i,j,k: integer;
begin
  
  rewrite(f,'INTFILE');
  for i := 1 to 100 do  
    write(f, (101-i) );
  close(f,'LOCK');
  
  open(f,'INTFILE');
  for i := 100 downto 1 do
    begin
      readdir(f,i,k);
      writeln(output,'Record #',i:3,' = ',k:3);
    end;

  close(f,'PURGE');
end.
