Сделаем все по "китайски":
...
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[])