Suche HILFE ! zufallszahlen ohne WDH

[kompi19]

Problem geht weiter. Danke schon mal für die Hilfe.

Delphi-Quellcode:

procedure TForm1.losenClick(Sender: TObject);
VAR i,j,g,y,d,z,k,x,m,h,treffer,p,zw,sa,r:byte;
begin

(*Zufallszahlen ohne Dopplungen*)
 Randomize;
 for h:=0 to 5 do
 begin
  x:=49-h;
  sa:=random(x);
  zahlen[h+1]:=werte[sa];
  werte[sa]:=49-i ;
  StringGrid2.Cells[h,0]:=IntToStr(zahlen[h+1]);
 end;

 (*Sortieren der Zufallszahlen*)
 for g:=1 to 6 do
  for d:=1 to 5 do
   if zahlen[d] > zahlen[d+1]
   then
    begin
     zw:=zahlen[d];
     zahlen[d]:=zahlen[d+1];
     zahlen[d+1]:=zw;
    end;

 (*Ausgabe der Zahlen im StringGrid*)
 for z:=1 to 6 do
  StringGrid2.Cells[z-1,0]:=IntToStr(zahlen[z]);

 (*Einlesen der Tippzahlen*)
 for y:=1 to 6 do
  tipp[y]:=StrToInt(StringGrid1.Cells[y-1,0]);

 (*Vergleichen der Zahlen*)
 for m:=1 to 6 do
  for p:=1 to 6 do
   if zahlen[m]=tipp[p] then inc(treffer);

 (*Ausgabe der Treffer*)
 edit1.text:=IntToStr(treffer);

 for r:=1 to 49 do
 werte[r]:=r;

end;

Manchmal ist eine Dopplung der 49 vorzufinden. Warum?