[mihaSIK73]

В общем, над сделать так, чтобы в коде...

Код:

begin
repeat  a1:=random(6)+1;
        a2:=random(6)+1;
        a3:=random(6)+1;
        a4:=random(6)+1;
        a5:=random(6)+1;
        a6:=random(6)+1;
until условие;
end;

...условие выглядело примерно так:
a1<>a2<>a3<>a4<>a5<>a6