PROGRAMME différence
VAR
	fichier1, fichier2 : FICHIER
	nom_du_fichier : CHAINE
	ligne1, ligne2 : CHAINE
	i : ENTIER
	dif <- FAUX : BOOLEEN
DEBUT
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	fichier1 <- OUVRIR-FICHIER(nom_du _fichier, "lecture")

	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	fichier2 <- OUVRIR-FICHIER(nom_du _fichier, "lecture")

	
	TANTQUE NON OEF(mon_fichier) ET NON dif
	FAIRE
		LIRE(fichier1, ligne1)	
		LIRE(fichier2, ligne2)
		SI(LONGUEUR(ligne1) != LONGUEUR(ligne2))
		ALORS
			dif <- VRAI
			ECRIRE(ligne1)
			ECRIRE(ligne2)
		SINON
			POUR i ALLANT DE 1 A LONGUEUR(ligne1) AU PAS DE 1
			FAIRE
				SI(EXTRAIRE(ligne1, i, 1) != EXTRAIRE(ligne2, i, 1))
				ALORS
					dif <- VRAI
					ECRIRE(ligne1)
					ECRIRE(ligne2)
				FINSI
			FINPOUR
		FINSI
			
	FINTANT
    FERMER-FICHIER(fichier1)
    FERMER-FICHIER(fichier2)
FIN
