PROCÉDURE AttribuerDossard()

HLitPremier(Coureur_Course)

SI Coureur_Course.NumDossard = 0 ALORS
	i est un entier = 1

	POUR TOUT Coureur_Course SUR points DEPUISFIN
		Coureur_Course.NumDossard = i
		HModifie(Coureur_Course)
		i++
	FIN
FIN

//---------------------------------

PROCÉDURE AttribuerTempsDepart()

HLitPremier(Coureur_Course)
HLitPremier(Course)

SI HeureVersEntier(Coureur_Course.heureDépart) = 0 ALORS
	i est un entier = HeureVersEntier(Course.heureDépart)
	nDeli est un entier = HeureVersEntier(Course.deltadépart)

	POUR TOUT Coureur_Course SUR NumDossard DEPUISFIN
		Coureur_Course.heureDépart=EntierVersHeure(i)
		HModifie(Coureur_Course)
		i += nDeli
	FIN
FIN