Не работает генерация рандомного числа - PascalABC.NET

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

Каждый раз программа дает 7, счетчик К работает правильно, а вот строка r:=random(1,k); дает всегда один и тот же результат. r:=random(k)+1; (что идентично по действию) дает такой же результат.

Program test;
function randomset(s: set of integer): integer;
var
  num, k, i, r: integer;
  res: array[1..5] of integer;
begin
  k := 0;
  foreach num in s do 
  begin
    inc(k);
    res[k] := num;
  end;
  r:=random(1,k);
  for i := 1 to r do result := res[k];
end;
 
var s: set of integer;
begin
s+=[1,3,7,9,5];
write(randomset(s));
end.

Что не так?

Решение задачи: «Не работает генерация рандомного числа»

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

Program test;
function randomset(s: set of integer): integer;
var
  num, k, i, r: integer;
  res: array[1..5] of integer;
begin
  k := 0;
  foreach num in s do 
  begin
    inc(k);
    res[k] := num;
  end;
  r:=random(1,k);
  result := res[r];
end;
 
var s: set of integer;
begin
randomize;
s+=[1,3,7,9,5];
write(randomset(s));
end.

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

Объявлены функции randomset и main, а также переменные num, k, i, r, res.
В функции randomset перебираются все числа из множества s с помощью цикла foreach.
Каждое число из множества s добавляется в массив res с индексом k.
Переменная k инициализируется нулем.
В функции main вызывается функция randomize для инициализации генератора случайных чисел.
Множество s заполняется числами [1,3,7,9,5].
Функция randomset вызывается с аргументом s, результат выводится на экран.
В функции randomset переменная r инициализируется случайным числом в диапазоне от 1 до k.
Результатом работы функции randomset является элемент массива res с индексом r.
Цикл foreach завершается, когда все элементы множества s будут добавлены в массив res.
Значение переменной k не используется в коде.
Множество s не изменяется внутри функции randomset.
Функция randomset не возвращает случайное число, а возвращает одно из чисел, добавленных в массив res.
Функция randomize используется для инициализации генератора случайных чисел.
Значение переменной r не используется в функции main.
Переменная i не используется в функции randomset.
Переменная num не используется в функции randomset.
Переменная k не используется в функции main.
Переменная i не используется в функции main.
Переменная num не используется в функции main.