Непонятна работа связки randomize - random - Pascal

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

При создании процедуры заполнения массива случайными цифрами, в прогоне программы через RUN массивы получаются с одинаковыми данными, в прогоне через DEBUG пошагово - все нормально, данные разные, всем подвох? Или как всегда кривость рук? Пример

Procedure loadmas(var a: tmas);
Var
I: integer;
Begin
Randomize;
For I:= 1 to csize  do a[i]:= random(50)+1;
End;
 
Var
X, y, z: tmas;
Begin
Loadmas(x);
Loadmas(y);
Loadmas(z);

Код не весь, но смысл ясен. Непойму почему через отладчик все норм, а через run массивы равны, проясните если незатруднит.

Решение задачи: «Непонятна работа связки randomize - random»

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

begin
  Randomize;

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

Указание Randomize гарантирует, что последовательность генерируемых случайных чисел будет каждый раз уникальной.
Оно инициализирует генератор случайных чисел, используемый в дальнейшем при вызове random.