перечисляемый тип

type
   TMyOrdType = byte; //byte можно поменять на любой другой перечисляемый тип
var
   MinValueOfType          : TMyOrdType;   
   MaxValueOfType          : TMyOrdType;   
   NumberOfElementsInType  : integer;
   RandomPosition          : integer;
   RandomValue             : TMyOrdType;
   i                       : integer;
   OutputFile              : TextFile;
begin
   MinValueOfType:=Low(TMyOrdType);
   MaxValueOfType:=High(TMyOrdType);  

   NumberOfElementsInType:=ord(MaxValueOfType)-ord(MinValueOfType)+1;
   
   //здесь открываем OutputFile (доработать самой)
   
   for i:=1 to 6 do
   begin
      RandomPosition:=random(NumberOfElementsInType);
      RandomValue:=Inc(MinValueOfType,RandomPosition-1);
      
      //здесь пишем RandomValue в OutputFile (доработать самой)
   end;
      
   //здесь закрываем OutputFile (доработать самой)