ввести с клавиатуры час суток.Напечатать время суток,утро,день,ночь,.В Pascal.Пожалуйсто помогите

//PascalABC.Net 3.2beginvar time:=readinteger('Введите время суток: ');if time in [0..5] then write ('Ночь')else if time in [6..11] then write ('Утро')else if time in [12..18] then write ('День')else write ('Вечер');end.