Помогите пожалуйста!!! в паскаль
Одна компания выпустила лотерейные билеты трёх разрядов: для молодежи, для
взрослых и для стариков.

Номера билетов каждого разряда лежат в пределах:

для молодёжи - от 1 до 100;

для взрослых - от 101 до 200;

для стариков - от 201 до 250.

С помощью компьютера выберите случайным образом лотерейный
билет в каждом разряде.

begin

   Writeln('Выбран билет номер ', random(100) + 1, ' из категории "для молодёжи"');

   Writeln('Выбран билет номер ', random(100) + 101, ' из категории "для взрослых"');

   Writeln('Выбран билет номер ', random(50) + 201, ' из категории "для пожилых"');

end.