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. Программа из университетского учебника.

[sheka]

По мне - так вот это проще будет

Я так тоже делал, пока не нашел Реализацию через символы(искал ее потому, что думал, что этот способ не рациональный )

последним элементом в строке всегда будет #1

А я то думал в чем же ошибка)

Вот оригинал: оказывается я только переименовал переменные

type 
  arr = array[1..255] of integer; 

procedure FillArray(var A: arr; n: integer); 
var 
  i: integer; 
  s: string; 
  q: byte; 
begin 
  randomize; 
  s := ''; 
  for i := 1 to n do 
    begin 
      q := random(i); 
      insert(chr(i), s, q); 
    end; 
  for i := 1 to n do 
    begin 
      A[i] := ord(s[i]); 
    end; 
end; 

DRKB качается только старая версия)

Добавлено через 8 мин.
Кстати, а как сделать Случайный рандом способом DRKB?