Ограничение числа integer до 1000 - Pascal ABC

Здравствуйте, программу писать не надо, просто подскажите, как сделать так, чтобы в var был integer до 1000.

ch:integer[1000];

Так не работает.

Листинг программы

repeat
write('Введите целое число из диапазона 1..1000 c=');
readln(c);
until(c>0)and(c<=1000);

Объяснение кода листинга программы

В строке repeat начинается цикл repeat-until.
В строке write выводится сообщение 'Введите целое число из диапазона 1..1000 c=', которое предназначено для пользователя.
В строке readln считывается значение переменной c, которое предназначено для пользователя.
В строке until проверяется условие: пока значение переменной c больше нуля и меньше или равно 1000, цикл продолжается.
Если условие истинно, то значение переменной c присваивается переменной c.
Если условие ложно, то цикл повторяется.
Цикл repeat-until завершается, когда значение переменной c становится меньше нуля или больше 1000.