Составить программу, которая запрашивает время суток, и выводит на экран соответствующее приветствие

Program greet;
var
h: integer;
begin
write(Час (0-23): );
readln(h);
if (h gt;= 0) and (h lt;= 4) then
writeln(Доброй ночи);
if (h gt;= 5) and (h lt;= 11) then
writeln(Доброе утро);
if (h gt;= 12) and (h lt;= 16) then
writeln(Добрый день);
if (h gt;= 17) and (h lt;= 23) then
writeln(Добрый вечер);
end.