Помогите решить задачу с оператором "case"

[Полина19]

В шеренге спортсмены стоят по росту. Задать с помощью генератора случайных чисел номер спортсмена - целое число от 1 до 9, определить вид спорта: 1,2,9 - баскетбол, 3,4,5 - бег, 6,7,8 - штанга.
Вот как сделала я. Но без Randomize. С ним не получается. Как исправить? Ведь надо случайным образом, как я поняла из условия задачи.

program n_1;
 const a=1; b=2; c=3; d=4; e=5; f=6; g=7; h=8; i=9;
 var N, sport: integer;
 begin
 writeln ('Введите номер спортсмена');
 readln (sport);
 case sport of
 a,b,i: writeln ('Спортсмен под этим номером занимается баскетболом');
 c,d,e: writeln ('Спортсмен под этим номером занимается бегом');
 f,g,h: writeln ('Спортсмен под этим номером занимается со штангой')
 else writeln ('Спортсмена под этим номером нет');
 end;
 end.

[Аватар]

С Random получится, да и Randomize не помешает

[Serge_Bliznykov]

program n_1;
 const a=1; b=2; c=3; d=4; e=5; f=6; g=7; h=8; i=9;
 var N, sport: integer;
 begin
   Randomize;
   sport := Random(9)+1;
   writeln ('Случайный номер спортсмена = ', sport);
   case sport of
       a,b,i: writeln ('Спортсмен под этим номером занимается баскетболом');
       c,d,e: writeln ('Спортсмен под этим номером занимается бегом');
       f,g,h: writeln ('Спортсмен под этим номером занимается со штангой')
    else writeln ('Спортсмена под этим номером нет');
 end;
  Readln; {приостановим выполнение программы до нажатия Enter} 
 end.