ANTICHAT — форум по информационной безопасности, OSINT и технологиям

{$I-}
program test;
const
  PARSE_FILE = 'h.txt';
var
  f : Text;
begin
  assign (f, PARSE_FILE);
  reset (f);
  if IOResult <> 0 then begin
    writeln ('reset error');
    halt (-1)
  end;
  close (f)
end.