PROCEDURE PROPOSE2 (
         C   : IN OUT TCarre;
         Cub : IN     TCube;
         Lig,
         Col : IN     Integer;
         Val : IN OUT Integer) IS
      Flag:Boolean:=False;
      K:integer :=Val+1;
   BEGIN

      WHILE Flag=False or K<10 LOOP
         IF Cub(Lig,Col).Vect(K) THEN
            Val:=K;
            flag:=true;
         END IF;
         K:=K+1;
         end loop;
  END PROPOSE2;