Вывести в зависимости от возраста мальчик, юноша, мужчина, старец- Pascal(Паскаль)

program lab_3;
    var n: integer;
    begin
    writeln ('ИНФОРМ ЧАСТЬ, вариант № 18');
writeln ('введите число' );
readln ( n);
 case n of 
0..13: writeln ('мальчик');
14..20: writeln ('юноша');
21..70: writeln ('мужчина');
else writeln ('старец');
end;
end.