var
  whole: file;
  buf: array[1..8192] of Byte;
begin
  AssignFile(whole, whole_name);
  FileMode := 0; //только чтение
  Reset(whole, 1);
  BlockRead(whole, buf, 8192);
  CloseFile(whole);
end;