Randomize i Tablice

Witam!

Pisze program (praca dyplomowa) wszystko jakos ladnie idzie ale utknalem w jedym miejscu... [sciana]
Program przeprowadza testy i chcial bym dorobic takie cos zeby losowal pytanie, zeby nie mozna bylo sciagac od innych ;)

Wydaje mi sie ze takie losowanie wygladalo by nastepujaco:

• Losuje PYTANIE (nie wiadomo ile jest pytan moze byc 1[min] a moze i 255[max]) :P
• Wylosowany numer pytanie dodaje do Tablicy i wczytuje Pytanie
• Przy kolejnym losowaniu sprawdza czy pytanie bylo juz wylosowane, jest tak to losuje znowu, jest nie to daodaje do tablicy i wczytuje :-|

Chyba wiadomo o co mi chodzi ... [???] :P

Tylko ze nie wiem jak sie za to zabrac probowalem cos pisac ale nie dziala tak jak powinno,ma ktos pomysl jak to zrobic, lub moze wie ktos jak napisac taka procedure?

Z gory wielkie dzieki :]

var
  bs:set of byte
  b:byte;
begin
  bs:=[];
  repeat
    b:=random(255)+1
  until not(b in bs);
  bs:=bs + [b];
  // a dalej robisz swoje
end.

BYŁO [!!!]
wrzucasz numery pytań do tablicy i zamieniasz ze sobą losowe elementy (czyli robisz w tablicy bałagan). potem bierzesz tyle pytań, ile chcesz - nie mają prawa się powtórzyć, bo przed mieszaniem w tablicy się nie powtarzały.