Mail

В этот день много лет назад...
26 октября. В 1942 году (83 года назад) - "в течение 26 октября наши войска вели бои с противником в районе Сталинграда и северо-восточнее Туапсе. На других фронтах никаких изменений не произошло."

Turbo Pascal Documentation

Процедура RunError

     Функция: Останавливает выполнение программы и генериру-
ет ошибку времени выполнения.
     Описание: RunError [ (код_ошибки : word ) ]
     Примечания:  Процедура  RunError  аналогична  процедуре
Halt,  но  в дополнение к остановке программы она генерирует
на текущем операторе  ошибку  времени  выполнения.  Парвметр
"код_ошибки"  представляет собой номер ошибки времени выпол-
нения (0 опущен). Если текущий модуль  был  скомпилирован  с
установленной  опцией Debug Information (Отладочная информа-
ция), и вы запускаете программу из среды  интерактивной  от-
ладки,  то  Турбо-Паскаль обрабатывает обращение к RunErrorа
как обычную ошибку времени выполнения.
     Прочее: См. также процедуру Halt.
     Пример:

  {IFDEF Debug}
     if P = nil then RunError(204);
  {EDNIF}