Заполнение массива разными числами Опции

[Вячеслав Л.]

Задача: заполнить массив не повторяющимися элементами. Знаю только, как вывести неповторяющиеся элементы (с помощью множеств). Привожу эту прогу:

var
mn, k: Set of 1..20;
kol, l, i, n: Integer;

begin
        Randomize;

        mn:=[1..50];

           k:=[];
           for l:=1 to 20 do
               begin
               repeat
                 n:=Random(50)
               until (n in mn) and not (n in k);
               k:=k+[n];
               Write(n,' ');
               end;
end. 

Как сделать то же самое для заполнения массива (мы же не можем написать "until (n in massiv)" )?