Pascal/Turbo Pascal - duda con la función RANDOM

bueno, el problema es que quiero cargar un vector de 1 a 6 aleatoriamente, pero, sin que se repitan los Números...

me estoy recien iniciando en esto, así que puede que la respuesta sea fácil...espero me puedan ayudar.....

saludos

function norepetido(Dato,Indice:integer):boolean;
var
i:integer;
repetido:boolean;
begin
repetido:=false;
if i > 1 then
for i:=1 to Indice-1 do
begin
if Dato = A[i] then repetido:=true;
if repetido = true then break;
end;
norepetido:=not repetido;
end;

begin
....
repeat
A[i]:=random(100);
until norepetido(A[i],i)=true;
....
end.