Чем занимаетесь в зависимости от возраста Pascal(Паскаль)

program CheckUserAge;
var
  age : integer;
begin
   write('Сколько вам лет ');
   readln(age);
   if age < 1 then
     writeln('Значение не может быть меньше 4')
   else
     begin
       write('Скорее всего Вы ');
       if age < 6 then
         writeln('ходите в садик');
       if (age >= 6) and (age < 18) then
         writeln('учитесь в школе');
       if (age >=18) and (age <= 21) then
         writeln('студент');
       if age > 21 then
         writeln('работаете');
     end;
   writeln('Для выхода из программы нажмите клавишу Enter');
   readln;
end.