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

const N = 9;var a: array[1..9] of integer;i, num: integer;rez: string;beginfor i := 1 to N do begina[ i ] := random(9)+1;write(a[ i ], ' ');end;writeln();write('Введите номер спортсмена: ');readln(num);if (num = 1) OR (num = 2) OR (num = 9) then rez := 'баскетболист';if (num = 3) OR (num = 4) OR (num = 5) then rez := 'бегун';if (num = 6) OR (num = 7) OR (num = 8) then rez := 'штангист';writeln('Данный спортсмен - ', rez);end.