[Aristarh Dark]

Код:

var
  f:file;
  s:string;
begin
  AssignFile(f, 'myFile');
  Reset(f, 8);  
  SetLength(s,8);
  BlockRead(f,s[1],1);
  CloseFile(f);
end;