Как ввести числа с клавиатуры в диапазоне от -30000 до 30000? паскаль

Number:=-100000;
repeat
 writeln('введите число в диапазоне от -30000 до +30000'); 
 readln(number);
until (number in [-30000..30000]);