Выбор случайного значения из списка - Pascal ABC

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

Здравствуйте. Помогите пожалуйста выбрать случайное значение из списка. Сам код создания списка и выбор случайного значения я написал, но код нужно немного подправить. Когда выбираешь случайного студента, то иногда программа пишет "индекс находится вне границ массива". Помогите пожалуйста это исправить. Я так думаю что это нужно исправить размер массива чтобы размер каждый раз задавался пользователем, а реализовать у меня не получается.

uses
  crt;
 
type
  uch = record
  fam:string[15];
  end;
 
var
  a: array[1..25]of uch;
  n, i: integer;
 
begin
  randomize;
  repeat
    write('Введите количество студентов (от 2 до 20) n=');
    readln(n);
  until n in [2..20];
  for i := 1 to n do
    with a[i] do
    begin
      write('Фамилия: ');readln(fam);
    end;
  clrscr;
  writeln('Список студентов:');
  for i := 1 to n do
    with a[i] do
    begin
      writeln(fam);
    end;
 
  write('Студент: ', a[random(n)]);
end.

Решение задачи: «Выбор случайного значения из списка»

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

write('Студент: ', a[1+random(n)]);//от 1 до n

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

В первой строке кода происходит запись в переменную a значения элемента списка, который находится на позиции, определенной переменной n (случайным образом выбранной в диапазоне от 1 до n).
Вторая строка кода представляет собой вывод на экран строки Студент:, за которой следует значение переменной a[1+random(n)]. Здесь 1+random(n) означает, что к числу 1 прибавляется случайное число в диапазоне от 0 до n-1.
Весь код выполняет следующие действия:
- генерирует случайное число в диапазоне от 0 до n-1;
- использует это число для выбора элемента из списка a;
- выводит на экран строку Студент:, за которой следует выбранный элемент.