помогите составить программу в паскаль, плиз

uses crt;
var chas:integer;
ok:boolean;

begin
repeat
writeln('Введите час');
readln(chas);
until chas in [0..24];
case chas of
0..5: writeln('Доброй ночи');
6..11: writeln('Доброе утро');
12..17: writeln('Добрый день');
18..24: writeln('Добрый вечер');
end;
end.

Вторая задача
1. Создаешь переменную целочисленного типа
2. Запрашиваешь ввод с клавиатуры часов, в 24 часовом формате
3. Если значение не введено, то ставишь значение по умолчание например 14 часов.
4. Делаешь проверку времени:
- Если время больше либо равно 0 и если время меньше 6, то выводить сообщение СПОКОЙНОЙ НОЧИ
- Если время больше либо равно 6 и если время меньше 12, то выводить сообщение ДОБРОЕ УТРО
- Если время больше либо равно 12 и если время меньше 18, то выводить сообщение ДОБРЫЙ ДЕНЬ
-Если время больше либо равно 18 и если время меньше 0, то выводить сообщение ДОБРЫЙ ВЕЧЕР
Если нужен формат с минутами, то можно так:
1. Создаешь переменную вещественного типа
2. Запрашиваешь ввод с клавиатуры часов, в 24 часовом формате, минуты вводятся через точку
3. Если значение не введено, то ставишь значение по умолчание например 14.00 часов.
4. Делаешь проверку времени:
- Если время больше либо равно 0.0 и если время меньше 6.0, то выводить сообщение СПОКОЙНОЙ НОЧИ
- Если время больше либо равно 6.0 и если время меньше 12.0, то выводить сообщение ДОБРОЕ УТРО
- Если время больше либо равно 12.0 и если время меньше 18.0, то выводить сообщение ДОБРЫЙ ДЕНЬ
-Если время больше либо равно 18.0 и если время меньше 0.0, то выводить сообщение ДОБРЫЙ ВЕЧЕР