SubProceso Pausa
	Escribir ""
	Escribir "<enter> para continuar ..."
	Escribir ""
	Esperar Tecla
FinSubProceso
SubProceso CapturaDeDatos
	Limpiar Pantalla
	Escribir ""
	Escribir "captura de nombres.."
	Escribir ""
	Escribir "Cuántas personas son ?"
	Leer cantidadDePersonas
	vContador<-0
	vEdadMayor<-0
	vNombreMayor<-""
	Escribir ""
	Repetir
		vContador<-vContador+1
		Escribir "Nombre no.",vContador," ?"
		Leer Nombre
		Escribir "Edad no.",vContador," ?"
		Leer Edad
		Escribir ""
		Si(Edad>vEdadMayor)Entonces
			vEdadMayor<-Edad
			vNombreMayor<-Nombre
		FinSi
	Hasta Que vContador=cantidadDePersonas
	Escribir ""
	Escribir vNombreMayor," tiene la mayor edad"
	Escribir "edad = ",vEdadMayor
	Pausa
FinSubProceso
Proceso ejemplo
	resp<-"S"
	Repetir
		CapturaDeDatos
		Escribir "Quiéres capturar datos otra vez ?"
		Escribir "N<enter>, para NO volver a capturar"
		Leer resp
	Hasta Que resp="n" O resp="N"
FinProceso