PROGRAMME ligne_max
VAR
	fichier1 : FICHIER
	nom_du_fichier : CHAINE
	ligne1 : CHAINE
	ligne_max <- "" : CHAINE
DEBUT
	ECRIRE("Entrez le nom du fichier")
	nom_du_fichier <- LIRE()
	fichier1 <- OUVRIR-FICHIER(nom_du _fichier, "lecture")
	
	TANTQUE NON OEF(mon_fichier)
	FAIRE
		LIRE(fichier1, ligne1)	
		SI(LONGUEUR(ligne1) > LONGUEUR(ligne_max))
		ALORS
			ligne_max <- ligne1
		FINSI
	FINTANT
    FERMER-FICHIER(fichier1)
    ECRIRE(ligne_max)
FIN
