Pascal-losowanie Dużego Lotka

[piotrek9299]

Witam.
Mam napisać program w Pascal-u, zasada:
losujemy dwie szóstki z zakresu od 1 do 49, w danej szóstce nie może się powtórzyć żadna liczba.
Jedna szóstka (tablica 1) to liczby zwycięskie, a druga szóstka (tablica 2) to liczby typowane.
Następnie program ma sprawdzić ilość trafień.
Algorytm ma się powtarzać dopóki nie zostanie trafiona odpowiednia ilość liczb (wybrana przez użytkownika).

Mam problem głównie z tym, jak wylosować 6 liczb bez powtórzeń i porównać dwie tablice.
Mam na dzieję, że mogę liczyć na waszą pomoc
Pozdro!

[Xitami]

Kod: Zaznacz cały

procedure f(c,z,b,n,k:integer); 
begin
  if z<b then begin
    write(c,#32);
    if n>0 then
       f(c+1,    z, b*k     div n, n-1, k-1)
  end else
    if n>0 then
       f(c+1, z-b, b*(n-k) div n, n-1, k  )
end;

begin
  f(1, random(13983816), 13983816, 48, 5)
end.