var
  inFile : file of integer;
  i, j : integer;
begin
  assign(inFile, 'integer.dat');
  reset(inFile);
  repeat
    writeln('enter record number to read ');
    readln(j);
    seek(inFile, j);
    read(inFile, i);
    writeln('the record has a value of ',i)
  until j < 0;
end.