random(49) +1, не понятное +1 Опции

[Студент*21в.]

Добрый 21 век!

program sportlotto; 
 
 type num=1..49;
 var i:1..6;loto:num;  

   begin randomize; 
     for i:=1to 6do 
      begin  
        loto:=random(49)+1; 
        writeln('Nr.',i:2,loto:6)  
       end 
   end.

В общем эта программа имеет недостаток в том, что не все числа могут выпасть разными. Но не это мне важно!
Мне важно узнать о функции "random". Мне не понятно почему "+1"? Для чего "+1"?
P.S. Программа из университетского учебника.

[TarasBer]

> TarasBer, а что ты не привел код, которому доверяешь?

Меня код Archonа устраивает.

> да и для 30 чисел этого же диапазона рано или поздно множество заполнится.

Гарантируешь? Всё, что тут можно сказать - это "для идеального рандома массив заполнится не более, чем за такое-то время с такой-то вероятностью". Тут же даже рандом неидеален и хз как себя поведёт.