Dimensionar VectorNombre(15)
Dimensionar VectorEdad(15)
Dimensionar NombreEdadMaxima
Dimensionar EdadMaxima = 0
Dimensionar Indice

Desde (1 a 15) en Indice
Imprimir "Ingresar nombre: "
Leer VectorNombre(Indice)
Imprimir "Ingresar la edad: "
Leer VectorEdad(Indice)

Si (VectorEdad(Indice) > EdadMaxima)
EdadMaxima = VectorEdad(Indice)
NombreEdadMaxima = VectorNombre(Indice)
Fin Si
Fin Desde

Desde (1 a 15) en Indice
Imprimir "Nombre : " & VectorNombre(Indice) & " - Edad: " & VectorEdad(Indice)
Fin Desde

Imprimir "La edad máxima fue: " & EdadMaxima
Imprimir "El nombre de la persona de mayor edad es: " & NombreEdadMaxima