Прочитать из типизированного файла целых чисел числа с заданными номерами - Turbo Pascal

var
  f: file of Integer;
  x, t: integer;
  i: Longword;
begin
  Assign(f, 'file.dat');
  Reset(f); 
  Read(f, x); Write(x:10);
  for i := 1 to (FileSize(f) - 1) div 2 do
    begin
      Read(f, t, x);
      Write(x:10);
    end;
  ReadLn;
end.