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