programa
{
	inclua biblioteca Util --> u
	inclua biblioteca Texto --> t
	funcao inicio()
	{
		cadeia vet[6]
		inteiro totnome = 0
		para(inteiro p = 0; p < u.numero_elementos(vet); p++){
			escreva("Nome para a posição ["+p+"]: ")
			leia(vet[p])
			totnome++
		}
		escreva("\n====== "+totnome+" NOMES CADASTRADOS COM SUCESSO ======")
		escreva("\n----------------- ANALISANDO -----------------")
		escreva("\nNomes com menos de 6 letras: \n")
		inteiro totmenos6 = 0
		para(inteiro p = 0; p < u.numero_elementos(vet); p++){
			se(t.numero_caracteres(vet[p]) < 6){
				escreva("["+p+"] = "+vet[p]+" ")
				totmenos6++
			}
			
		}
		escreva(" TOTAL = ",totmenos6)
		escreva("\n----------------------------------------------")
		escreva("\nNomes que começam com vogal: \n")
		inteiro totvogal= 0 
		para(inteiro p = 0; p < u.numero_elementos(vet); p++){
			se(t.obter_caracter(vet[p], 0) == 'a' ou t.obter_caracter(vet[p], 0) == 'A'){
				escreva("["+p+"] = "+vet[p]+" ")
				totvogal++
			}
			se(t.obter_caracter(vet[p], 0) == 'e' ou t.obter_caracter(vet[p], 0) == 'E'){
				escreva("["+p+"] = "+vet[p]+" ")
				totvogal++
			}
			se(t.obter_caracter(vet[p], 0) == 'i' ou t.obter_caracter(vet[p], 0) == 'I'){
				escreva("["+p+"] = "+vet[p]+" ")
				totvogal++
			}
			se(t.obter_caracter(vet[p], 0) == 'o' ou t.obter_caracter(vet[p], 0) == 'O'){
				escreva("["+p+"] = "+vet[p]+" ")
				totvogal++
			}
			se(t.obter_caracter(vet[p], 0) == 'u' ou t.obter_caracter(vet[p], 0) == 'U'){
				escreva("["+p+"] = "+vet[p]+" ")
				totvogal++
			}	
				
		}	
		escreva(" TOTAL = ",totvogal)
		escreva("\n----------------------------------------------")
		escreva("\nNomes que tem S no nome: \n")
		inteiro tot = 0
		
		para(inteiro p = 0; p < u.numero_elementos(vet);p++){
			 
			se( t.posicao_texto("s", vet[p], 0) != -1){
				escreva("["+p+"]="+vet[p]+" ")
				tot++
			}
			
		}
		escreva(" Total="+tot)
		
	}
}

Essa ultima parte n estava conseguindo fazer, ai testei isso daí e foi.