Значение слова (словосочетания) системный блок

var x,y,x1,y1,x2,y2: integer;

begin

  read(x,y,x1,y1,x2,y2);

  if (x< x1) and (x> x2) and (y< y1) and (y> y2) then

      writeln('da')

  else writeln('net');

end.

var hour: integer;

      minute: string;

begin

  writeln('введите время суток');

  read(hour,minute);

  if (hour> =6) and (hour< 12) then writeln('доброе утро');

  if (hour> =12) and (hour< 18) then writeln('доброго дня');

  if (hour> =18) and (hour< 00) then writeln ('доброго вечера');

  if (hour> =00) and (hour< 6) then writeln ('спокойной ночи');

end.

тут единственный недостаток: после ввода часов нужно нажать enter и минуты вводить на новой строке