Lottogenerator ERLEDIGT!

[Namenloser]

Bei dsdt gibt es diese version: (hier: http://www.dsdt.info/tipps/?id=470&search=lotto)
Dort wirde es mit einem boolean array gelöst. Ich hab auch mal sowas programmiert, mit nem array[0..6-1] of integer und anschließend mit bubble sort sortiert, aber ich bin ehrlich gesagt zu faul, danach zu suchen

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
 var Zahlen: Array[1..49] of Boolean;
     i, z: Integer;
begin
  for i:= 1 to 49 do Zahlen[i]:=false;
  for i:=1 to 6 do begin
   repeat
    z:=random(49)+1
   until Zahlen[z] = false;
   Zahlen[z]:=true;
  end;
  Edit1.Text:='';
  for i:=1 to 49 do
   if Zahlen[i] then Edit1.Text:=Edit1.Text+' '+Inttostr(i)+' ';
end;