По введенному возрасту определить принадлежность к возрастной группе - Pascal ABC

Формулировка задачи:

Написать программу, которая запрашивает у пользователя ввести пол (1-мужской, 2-женский) и возраст человека. В зависимости от введённых данных, программа выводит на экран одно из следующих сообщений: "Мальчик", "Девочка"(1-14 лет); "Юноша", "Девушка"(15-21); "Мужчина", "Женщина"(20-122 лет).

Решение задачи: «По введенному возрасту определить принадлежность к возрастной группе»

Листинг программы

uses crt;
var p,v:integer;
begin
repeat
write('Пол 1-мужской 1-женский: ');
readln(p);
until p in [1,2];
repeat
write('Возраст от 1 до 122: ');
readln(v);
until v in [1..120];
if p=1 then
 if v<=14 then write('Мальчик')
  else if v<=21 then write('Юноша')
   else write('Мужчина')
else if p=2 then
 if v<=14 then write('Девочка')
  else if v<=21 then write('Девушка')
   else write('Женщина')
end.

Объяснение кода листинга программы

В первой строке кода используется библиотека crt, которая является стандартной для языка Pascal ABC.
Переменные p и v объявлены как целочисленные.
В цикле repeat-until выполняется следующая последовательность действий:
- Выводится сообщение Пол 1-мужской 1-женский:.
- Считывается значение переменной p.
- Выполняется условие до тех пор, пока значение переменной p не станет равным 1 или 2.
- Если значение переменной p равно 1, то выполняется следующая последовательность действий:
  - Выводится сообщение Мальчик, если значение переменной v меньше или равно 14.
  - Иначе, если значение переменной v меньше или равно 21, выводится сообщение Юноша.
  - Иначе выводится сообщение Мужчина.
- Если значение переменной p равно 2, то выполняется следующая последовательность действий:
  - Выводится сообщение Девочка, если значение переменной v меньше или равно 14.
  - Иначе, если значение переменной v меньше или равно 21, выводится сообщение Девушка.
  - Иначе выводится сообщение Женщина.
Код не содержит вложенных списков.