var input : File;
begin
  AssignFile(input, 'a.txt');
  {$I-}
    Reset(input);
  {$I+}
  if IOResult <> 0 then exit;
  CloseFile(input);
end;