Program blablsbls;
var
time: integer;
begin
writeln(Введите текущий час!)
readln(time);
if time gt;= 7 and time lt; 11 then writeln(Доброе утро!);
if time gt;= 11 and time lt; 18 then writeln(Добрый день!);
if time gt;= 18 and time lt; 24 then writeln(Добрый вечер!);
if time gt;= 0 and time lt; 7 then writeln(Спокойной ночи!);
end.

Как-то так, если мне память на счет синтаксиса не изменяет.