SubProceso Pausa
	Escribir ""
	Escribir "<enter> para continuar .."
	Esperar Tecla
FinSubProceso
SubProceso LeerNombres
	Limpiar Pantalla
	Escribir ""
	Escribir "captura de nombres .."
	CantidadDePersonas<-0
	Escribir "Cuántas personas son ?"
	Leer CantidadDePersonas
	Escribir ""
	
	contPersonas<-0
	edadPersonaMayor<-0
	nombrePersonaMayor<-""
	Repetir
		contPersonas<-contPersonas+1
		Escribir "nombre de la persona no.",contPersonas," ?"
		Leer vNombre
		Escribir vNombre," cuál es tu edad ?, edad de la persona no.",contPersonas
		Leer vedad
		Si(vEdad>edadPersonaMayor)Entonces
			edadPersonaMayor<-vEdad
			nombrePersonaMayor<-vNombre
		FinSi
	Hasta Que contPersonas=CantidadDePersonas
	Escribir ""
	Escribir nombrePersonaMayor," es el mayor de todos .."
	Escribir "su edad es ",edadPersonaMayor
	Pausa
FinSubProceso
Proceso ejemplo
	resp<-"S"
	Repetir
		LeerNombres
		Escribir ""
		Escribir "quieres volver a capturar ?"
		Escribir "N <enter> para NO voler a capturar"
		Leer resp
	Hasta Que resp="n" O resp<>"N"
FinProceso