По заданному времени (T) Укажите время суток(утро,день,вечер,ночь)

Сделаем все по "китайски": ... writeln('time:'); readln(a); char a of 5..9: c:='Ytro'; 10..17: c:='Den'; 18..22: c:='Vecher'; 23..24,0..4: c:='noch'; ... writlen(c); end; Если будет ругаться прога, проставь для каждого параметра, или через массив(array[])