function file_exist(path:string):boolean;
var f:text;
    i:integer;
begin
  (*$I-*)
  assign(f, path);
  reset(f);
  (*$I-*)
  i:= ioresult;
  if i=0 then close(f);
  file_exist:= (i=0) or ( i = 5);
end;