FUNCTION KeineLuecke (Pos:PositionsTyp;i:Byte;VAR NeuPos:PositionsTyp):Boolean;
    { Test auf Lcke oder mehr als zwei Endfelder : }
    VAR lueckenAnz , endfelder : FelderBereich ;
      x , y : BrettBereich ;
    BEGIN
      lueckenAnz := 0 ; endfelder := 0 ;
      FOR x := 1 TO BrettGroesse DO
        FOR y := 1 TO BrettGroesse DO WITH Brett[ x , y ] DO BEGIN
          IF (NachfolgerAnz=0) AND NOT Besetzt THEN Inc(lueckenanz)
          ELSE IF (NachfolgerAnz=1) AND NOT Besetzt THEN Inc(endfelder);
        END; { For }
      KeineLuecke := ((lueckenanz = 0) OR (ZugListenIndex=FelderAnzahl-1)) AND
                      (endfelder < 3) AND Erlaubt ( Pos , i , NeuPos );
    END; { KeineLcke }