Почему ограничение типа не действует (Турбо Пасакаль)?

Описан тип х от 1..20, а вводить x больше 20 получается.



Программа выполняется, описано правильно.

Для перечислимого типа описание:
Type =(список констант)

Для ограниченного типа:
TYPE =константа1..константа2