Certo, eu até tentei seguir algumas das coisas que vi acima e ate consegui fazer ele copiar o da posição a frente, mas daí fica duplicado mesmo regredindo o contador ele não exclui o registro na varialvel.
Algoritmo "Entrada de dados com vetor pesquisa e delete"
Var
nomeusuario: vetor [1..10] de caractere
idadeusuario: vetor [1..10] de inteiro
sairsistema:logico
numero:inteiro
x:inteiro
pesqnome,removenome:caractere
contador,contador2,encontrou:inteiro
Inicio
sairsistema:= falso
enquanto (sairsistema = falso) faca
escreval("Escolha uma opção.")
escreval("1- Cadastro usuario.")
escreval("2- Lista de usuarios.")
escreval("3- Sair do sistema.")
escreval("4- Buscar usuario pelo nome.")
escreval("5- Remover usuario.")
leia(numero)
escolha numero
caso 1
escreval("quantos usuarios deseja cadastrar?")
leia(contador2)
contador:= contador+contador2
se (contador>=11)entao
escreval(" O cadastro de usuarios é de no maximo 10 usuarios!")
contador:= contador-contador2
senao
para x de 1 ate contador faca
se (nomeusuario[x] = "")entao
escreval("a posição", x, " de",contador," esta disponivel")
escreval("digite o nome do usuario.")
leia(nomeusuario[x])
escreval(" agora digite a idade do usuario.")
leia(idadeusuario[x])
escreval("cadastro realizado")
senao
escreval("a posição", x," esta ocupada")
fimse
fimpara
fimse
caso 2
se (nomeusuario[x] = "")entao
escreval(" não foi encontrado nenhum usuario cadastrado.")
senao
escreval("usuarios cadastrados sao:")
para x de 1 ate contador faca
escreval("usuario :",nomeusuario[x]," idade: ",idadeusuario[x])
fimpara
fimse
caso 3
escreval(" o sistema sera finalizado")
sairsistema:= verdadeiro
caso 4
encontrou:=0
escreval("Digite o Nome do usuario a ser pesquisado.")
leia(pesqnome)
para x de 1 ate contador faca
se (nomeusuario[x]= pesqnome) entao
escreval("a pesquisa encontrou o nome ",nomeusuario[x]," na posição",contador,".")
encontrou:= 1
fimse
fimpara
se (encontrou = 0)entao
escreval("o nome da pesquisa não foi localizado no sistema!.")
fimse
caso 5
encontrou := 0
escreval("Informe um nome para remoção do cadastro.")
escreval("Lembre que após exclui-lo não será possível reverter,")
escreval("apenas realizando novo cadastro")
leia(removenome)
para x de 1 ate contador faca
se (nomeusuario[x] = removenome)entao
escreval("a pesquisa encontrou o nome ",nomeusuario[x]," na posição ",contador," e será removido")
encontrou := 1
nomeusuario[x]:=""
idadeusuario[x]:= 0
fimse
fimpara
para x de 1 ate contador faca
se(nomeusuario[x]="")entao
nomeusuario[x]:= nomeusuario[x+1]
idadeusuario[x] := idadeusuario[x+1]
contador:= contador-1
fimse
fimpara
se (encontrou = 0)entao
escreval("o nome para remoção não foi localizado no sistema!.")
fimse
outrocaso
escreval("não consegui identificar a resposta escolha novamente.")
fimescolha
fimenquanto
Fimalgoritmo