> -- olegr писал(а):
> Как будет выглядеть проверка диапазонов для моего примера?

Будет авост. И вы узнаете об ошибке сразу, а не будете гадать - почему это у меня какое-то непонятное значение в LONGINT?

VAR l: LONGINT; x: INTEGER;
BEGIN x := MAX(INTEGER); l := x + 1;