[Suche]Hilfe bei Turbo Pascal Lottozahl Generator

[mani64]

Hallo crisbinfranke,

in deinem Code ist noch ein kleiner Fehler:

Delphi-Quellcode:

if (lotto[1]=lotto[2]) or (lotto[1]=lotto[3]) or (lotto[1]=lotto[4]) 
  or (lotto[1]=lotto[5]) or (lotto[1]=lotto[6]) or (lotto[2]=lotto[3]) 
  or (lotto[2]=lotto[4]) or (lotto[1]=lotto[5]) or (lotto[2]=lotto[6]) // es muss in der Mitte heißen: lotto[2]=lotto[5] 
  or (lotto[3]=lotto[4]) or (lotto[3]=lotto[5]) or (lotto[3]=lotto[6]) 
  or (lotto[4]=lotto[5]) or (lotto[4]=lotto[6]) or (lotto[5]=lotto[6]) 
  then ziehung

Wie klappt es inzwischen mit der Sortierung?