По времени определить время суток. Оператор выбора case

uses crt; var n,k: integer; beginwrite ('Введите час'); read (n); if n>=24 then begin k: =n mod 24; n: =k; end; case n of 6… 11: write ('Утро'); 13… 16: write ('День'); 17… 23: write ('Вечер'); 0… 5: write ('Ночь'); end; end.