var hour: integer;
minute: string;
begin
writeln('Введите время суток');
read(hour,minute);
if (hour>=6) and (hour<12) then writeln('Доброе утро');</p>
if (hour>=12) and (hour<18) then writeln('Доброго дня');</p>
if (hour>=18) and (hour<00) then writeln ('Доброго вечера');</p>
if (hour>=00) and (hour<6) then writeln ('Спокойной ночи');</p>
end.
Тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке