Вводится текущее время. Написать программу, определяющую это время до полудня или после — Pascal(Паскаль)

var
  h: integer;

begin
  readln(h);
  if (h >= 12) and (h <= 23) then
    Writeln('Время после полудня')
  else if (h < 12) and (h >= 0) then
    Writeln('Время до полудня')
  else
    Writeln('Неправильно задано время');

end.