По заданному времени (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[])