Вывести случайный элемент заданного массива - PascalABC.NET

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

Из заданного вручную одномерного массива с 11 элементами выбрать случайный элемент и вывести его на экран. Подскажите код получения случайного элемента массива.

Решение задачи: «Вывести случайный элемент заданного массива»

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

var
  a: array [1..11] of integer;
  i, n: integer;
 
begin
  randomize;
  for i := 1 to 11 do
    readln(a[i]);
  n := random(1, 11);
  writeln(n, '-ый элемент массива: ', a[n]);
end.

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

Создается массив a типа array [1..11] of integer (строка 1)
Инициализируются две переменные типа integer - i и n (строка 3)
Запускается процедура randomize (строка 5), которая инициализирует генератор случайных чисел
В цикле for i := 1 to 11 происходит считывание 11-ти целочисленных значений в массив a (строка 7)
Переменная n инициализируется случайным числом в диапазоне от 1 до 11 с помощью функции random(1, 11) (строка 9)
В строке 11 выводится на экран значение переменной n и сообщение, содержащее элемент массива a с индексом n
Конец программы (строка 13)