Lotto 6 aus 49

program Lotto_6_aus_49;

Uses crt,sysutils;

type listtyp = set of byte;

function IsInList(i : byte; condision : boolean) : boolean;
begin
   if (condision) then begin
            if(i < 10) then begin
                Write('  ',i);
            end else begin
                Write(' ',i);
            end;
            IsInList:= true;
            Exit;
   end;
   IsInList:=false;
end;

procedure PrintList(list : listtyp);
var i : byte;
begin
     for i := 0 to 49 do begin
         IsInList(i, i in list);
     end;
end;

procedure PrintNumberc(txt : string; list : listtyp; superzahl : byte);
begin
     Write(txt);
     PrintList(list);
     Write('        Superzahl: ',superzahl);
end;

procedure GameLoop();
Var Player, Ziehung                     : listtyp;
    Sp_Zahl, Sl_zahl, zahl, i, counter  : byte;
    S_exist, fzahl                      : Boolean;
begin
  Player:=[];
  Ziehung:=[];
  for i := 1 to 6 do begin
      repeat
            try
            Write(i,'/6. Zahl:'); ReadLn(Zahl);
            fzahl := not (zahl in Player) and ((0 < Zahl) and (Zahl < 50));
            if (not fzahl) then
               raise Exception.Create('error');
            except
                WriteLn('Sie haben einen eingabe Fehler gemacht!!');
            end;
      until(fzahl);
      Player := Player + [Zahl];
  end;
  ClrScr;
  Sp_Zahl:= Random(10);

  for i := 0 to 5 do begin
      repeat
            Zahl := Random(49) + 1;
      until not (Zahl in Ziehung);
      Ziehung := Ziehung + [Zahl];
  end;
  //lotto zahlen
  WriteLn('======Lotto======');
  Writeln;
  PrintNumberc('Spieler Zahlen   : ', Player, Sp_Zahl);
  WriteLn;
  PrintNumberc('Lotto Zahlen     : ', Ziehung, Sl_zahl);
  WriteLn;
  Write('Gemeinsame Zahlen: ');
  for i := 0 to 49 do begin
      if(IsInList(i,(i in Player) and (i in Ziehung))) then counter := counter +1;
  end;

  S_exist:= (Sp_Zahl = Sl_zahl);
  WriteLn;
  WriteLn('Superzahl        :   ',S_exist);
end;

var input : char;
begin
  Randomize;
  repeat
        GameLoop();
        WriteLn;
        repeat
             Write('Wollen Sie nochmal Spielen? [Y]');
             input := ReadKey;
        until (input in ['Y','N','y','n']);
  until not (input in ['y','Y']);
end.