Демонстрация использования IOResult при открытии файла — Pascal(Паскаль)

program iores;
label
     konec;
var
     f:text;
     fname:string[80];     { имя файла}
      res:integer;               { результат открытия файла }
     otv:char;                    { ответ на предложение повторить
                                     попытку открыть файл }
begin
     fname:= 'a:\test.txt';
     assign(f,fname);
     repeat
          {$I-}
          reset(f);   { открыть файл для чтения }
          {$I+}
          res:=IOResult;
          if res<>0
          then begin
               write('ОШИБКА: файл ',fname, ' не найден');
               writeln(' или диск не готов.');
               write('Повторить попытку?(д/н)');
               readln(otv);
          end;
     until (res=0) OR (otv='н');
     if res<>0 then goto konec;

     { здесь инструкции программы }

konec:
end.