Problème d'algo

Programme Principal : suite
Entier : n1,n2
Booléen : croissant,const,decroissant,non_triee
DEBUT
	n1->0
	n2->0
	croissant->vrai
	const->vrai
	decroissant->vrai
	non_triee->faux
	Afficher "-1 pour terminer le programme"
	REPETER
		Afficher "Saisir un nombre(0 pour sortir)"
		Saisir n1
		SI n1 = 0 ALORS
			Exécuter Afficher_Résultat(E:croiss:Booléen, E:constant:Booléen, E:decroiss:Booléen)
		SINON
			SI n1 >=1 ALORS
				Exécuter Analyse_résultat(E:nb1:Entier, E:nb2:Entier, E/S:croiss:Booléen, E/S:constant:Booléen, E/S:decroiss:Booléen)
				n2->n1
			FINSI
		FINSI
		Exécuter Afficher_Résultat(E:croiss:Booléen, E:constant:Booléen, E:decroiss:Booléen)
	JUSQU'A n1#-1
FIN

Procédure Analyse_résultat(E:nb1:Entier, E:nb2:Entier, E/S:croiss:Booléen, E/S:constant:Booléen, E/S:decroiss:Booléen)
DEBUT
	SI nb2>=nb1 ALORS
		croiss->faux
	SINON
		croiss->vrai
		constant->faux
		decroiss->faux
	FINSI
	SI nb1#nb2 ALORS
		constant->faux
	SINON
		constant->vrai
		croiss->faux
		decroiss->faux
	FINSI
	SI nb1>=nb2 ALORS
		decroiss->faux
	SINON
		decroiss->vrai
		constant->faux
		croiss->faux
	FINSI
	SI NON decroiss ET NON croiss ET NON constant
		Exécuter Afficher_Résultat(E:croiss:Booléen, E:constant:Booléen, E:decroiss:Booléen)
	FINSI
FIN

Procédure Afficher_Résultat(E:croiss:Booléen, E:constant:Booléen, E:decroiss:Booléen)
ENTIER : nombre1
DEBUT
	SI nombre1 = 0 ALORS 
		Afficher "La suite est vide !"
	SINON
		SI croiss = vrai ALORS
			Afficher "La suite est croissante !"
		SINON
			SI constant = vrai ALORS 
				Afficher "La suite est constante !"
			SINON
				SI decroiss = vrai ALORS
					Afficher "La suite est decroissante !"
				SINON
					Afficher "La suite est non triee !"
				FINSI
			FINSI
		FINSI	
	FINSI
FIN