Работа с множествами

[Claster]

Доброго времени суток. Помогите разобраться с простеньким кодиком, работа с ножествами

Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".
Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требования:
• числа должны находиться в диапазоне 1..36;
• числа не должны повторяться.

Program Lotto;
     var
         nb, k: Set of 1..36;
         kol, l, i, n: Integer;
     begin
        Randomize;
        WriteLn('ВВЕДИ kol-vo biletov');
        ReadLn(kol);
        nb:=[1..36];
        for i:=1 to kol do 
          begin
           k:=[]; // для чего эта строка
           for l:=1 to 5 do 
             begin
               repeat
                 n:=Random(36)
               until (n in nb) and not (n in k); 
               k:=k+[n]; // для чего эта строка
               Write(n:4)
             end;
           WriteLn
          end
         end.

[ОДИНОЧЕСТВО В СЕТИ]

k:=[];//создается пустое множество
...
 k:=k+[n]; // добавляется элемент во множество

[Claster]

а для чего создавать пустое множество а затем добавлять в него элементы множества, или это какрас для того что бы числа не повторялись??

[ОДИНОЧЕСТВО В СЕТИ]

для того что бы числа не повторялись

именно для этого

[Claster]

спасибо за помощь

[Serge_Bliznykov]

кстати, в программе ошибка!
число 36 не выпадет НИКОГДА
правильно:

 n:=Random(36)+1;