Напишите программу, которая анализирует человека по возрасту и относит к одной из четырех групп: дошкольник, ученик, работник, пенсионер. Возраст вводится с клавиатуры — Pascal(Паскаль)

VAR
  vozrast:word;
BEGIN
  write('Введите  возраст человека: ');
  readln(wozrast);
  write('Этот человек относится к группе ');
  case wozrast of
  0..6: writeln('дошкольник.');
  7..17: writeln('ученик.');
  18..49: writeln('работник.');
  50..99: writeln('пенсионер.');
  end;