Напишите программку которая по введенному числу из промежутка от 0 до

Пишем программу,которая по введенному числу из интервала от 0 до 24 позволит нам найти время суток:
Pascal.
program qq;
var a: integer;
begin
read(a);
if (a gt; 5) and (a lt;= 11) then
write(Утро );
if (a gt; 11) and (a lt;= 17) then
write(Денек );
if (a gt; 17) and (a lt;= 23) then
write(Вечер);
if (a = 24) or (a lt; 6) then
write(Ночь);
end.
Программка написана.