Составить программу, которая позволяет определить, к какой группе относится данный человек. Например моложе 3 лет -маленький, от 4 до 7 -детсадовский, следующие 7 лет — подросток, и т.д. — Pascal(Паскаль)

uses crt;
var x:integer;
 begin
  ClrScr;
  Writeln('Сколько лет?');
  Readln(x);
   if x<0 then
    begin
     Writeln('Error!');
    end
   else
    case x of
    1..3:write('Малыш!');
    4..7:write('Детсадовский!');
    7..14:write('Подросток'); //дальше напишите сами
   end;
  readln
 end.