Eduardogcunha

Bom dia pessoal. Estou no primeiro periodo do Curso Tecnico em informatica. Para finalizar a disciplina de Algoritmo e Estrutura de Dados tenho quie entregar uma lista com mais de 50 exercicios, valendo nota. Ja fiz quase tudo mais parei em dois que ja tentei fazer de todo jeito mais o mesmo não funciona. Alguem poderia me ajudar???

Exercicio: Escreva um algoritmo que apresente um menu com tres opções:
1. Inserir
2. Exibir
3. Sair
a)quando for escolhida a opção número 1, um procedimento chamado insere deve inserir uma elemento (nome) em um vetor. O procedimento deve receber como paramentro o nome a ser inserido.
b)quando for escolhida a opção numero 3, um procedimento chamado Lista deve escrever na tela todos os elementos do vetor.

Resolução que eu tenho ate agora
algoritimo menu;
procedimento insere()
vet=vetor[1..5] de string;
var
nome: vet;
inicio
escreva("digite o nome");
leia(nome)
fim;
fimprocedimento;
procedimento lista();
var
i: inteiro;
inicio
i:=nome;
leia(vet[i];
fim;
fimprocedimento;
var
opcao: inteiro;
inicio
escreva("escolha a opção desejada");
escreva("1=Inserir, 2=Exibir, 3=Sair");
leia(opcao);
se (op <>2) faca
caso op
1=insere();
3=lista();
senao
escreva("Fim do programa");
fimse;
fim.

Queria que alguem me indicasse (se possivel onde esta o erro neste algoritmo) e desde ja agradeço.