TP em Portugol

programa
{
	inclua biblioteca Texto-->t
	funcao inicio()
	{
		inteiro op=0
		inteiro cont=0
		cadeia aluno[1000000]
		enquanto(op!=7){
			escreva("###CONTROLE DE ALUNOS###\n")
			escreva("########################\n")
			escreva("1 - CADASTRAR\n")
			escreva("2 - ALTERAÇÃO\n")
			escreva("3 - EXCLUSÃO\n")
			escreva("4 - PESQUISA\n")
			escreva("5 - LISTAGEM\n")
			escreva("6 - LISTAGEM POR QUANTIDADE\n")
			escreva("7 - SAIR\n")
			escreva("########################\n")
			leia(op)
			se(op==1){
				escreva("INSIRA O NOME: ")
				leia(aluno[cont])
				cont++
			}senao se(op==2){
				escreva("NOME ANTIGO: ")
				cadeia antig,nv
				leia(antig)
				inteiro pos=0
				logico existe=falso
				para(inteiro i=0;i<cont;i++){
					se(antig==aluno[i]){
						existe=verdadeiro
						pos=i
					}
				}
				se(existe){
					escreva("NOVO NOME: ")
					leia(nv)
					para(inteiro i=0;i<cont;i++){
						se(i==pos){
							aluno[i]=nv
						}
					}
				}senao{
					escreva("NOME NÃO ENCONTRADO")
				}
				
			}senao se(op==3){
				escreva("QUAL NOME DESEJA EXCLUIR : ")
				cadeia ex
				logico existe=falso
				inteiro pos=0
				leia(ex)
				para(inteiro i=0;i<cont;i++){
					se(aluno[i]==ex){
						existe=verdadeiro
						pos=i
					}
				}
				se(existe){
					aluno[pos]=""
				}senao{
					escreva("NOME NÃO ENCONTRADO")
				}
			}senao se(op==4){
				cadeia carac
				logico existe=falso
				escreva("INSIRA OS CARACTERES: ")
				leia(carac)
				para(inteiro i=0;i<cont;i++){
					se(t.posicao_texto(carac,aluno[i],0)!=-1){
						escreva(aluno[i],"\n")
						existe=verdadeiro
					}
				}
				se(existe==falso){
					escreva("NOME NÃO ENCONTRADO")
				}
			}senao se(op==5){
				para(inteiro i=0;i<cont;i++){
					se(aluno[i]!=""){
						escreva(aluno[i],"\n")
					}
				}
			}senao se(op==6){
				inteiro qtd
				logico existe=falso
				escreva("INSIRA A QUANTIDADE DE CARACTERES: ")
				leia(qtd)
				para(inteiro i=0;i<cont;i++){
					se(t.numero_caracteres(aluno[i])==qtd){
						escreva(aluno[i],"\n")
						existe=verdadeiro
					}
				}
				se(existe==falso){
					escreva("NOME NÃO ENCONTRADO")
				}
			}
			
				
			}
		
	}
}