Диалоговая программа связанная со временем Опции

[Lidroot]

Задача: Создать диалоговую программу, ответы которой связаны со временем. Например, на ввод пользователя "Hello" программа в зависимости от времени суток отвечает "Good Day", "Good Night"... Должно быть реализовано не менее 8 диалогов и по 2 варианта на ввод пользователя, выводящихся случайным образом.

Народ объясните мне как она должна быть реализована? и я даже не представляю 8 диалогов связанных со временем Поможите кто чем сможет... Заранее благодарю!

[klem4]

ну так получаешь текущий час и в зависимости от него выводишь сообщение, только по поводу 2-х вариантов я не очень понял ... Так?

uses Dos;

function GetCurrentHour: Word;
var
  h, m, s, ss: Word;
begin
  GetTime(h, m, s, ss);
  GetCurrentHour := h;
end;

var
  H: Word;
  A: Array [1..2, 0..1] of String = (
  ('Доброе утро', 'Good Morning'),
  ('Добрый день', 'Good Day')
  );

begin

  H := GetCurrentHour;

  if (H >= 7) and (H < 12) then
   writeln(A[1, Random(2)])
  else
   writeln(A[2, Random(2)]);

end.