Написать программу которая позволяет ввести целое число лежащее в диапазоне от 1 до 999 вывести строку которая описывает это число

Var  a:integer;begin  writeln('Введите число от 1 до 999: ');    readln(a);  if (a>999) or (a<0) or (a=0) then    begin  writeln('Неправильно введено число!');    end;  writeln('Ваше число: ',a);end.