Инициализация массивов Опции

[status]

Я вот у здесь нашел Массивы. Матрицы. Типичные задачи. "Инициализация массивов случайными значениями", а как правильно сделать инициализацию массива случаайными значениями и так чтобы это значения в массиве не повторялись в диопозоне 1 до 1000? Помогите пожалуйста!

я делаю так и незнаю как правильно сделать проверку на повторение :

Код

rocedure TForm1.Button1Click(Sender: TObject);
const
k=1000;
var
mas:array of integer;
i,n:integer;
begin
n:=StrToInt(Edit1.Text);
SetLength(Mas, n);
Stringgrid1.RowCount:=1;
randomize;
for i:=0 to n do mas[i]:=random(k);
Stringgrid1.RowCount:=n;
For i:=0 to n do
        Stringgrid1.cells[0,i]:=inttostr(mas[i]);
end;