Visualg Função

Boa noite Amigos

Estou com dificuldade neste algoritimo,preciso que apos cadastrar itens ele tenha a opção de voltar para o menu principal.

var

codigo: vetor [1..5] de inteiro

valor: vetor [1..5] de real

descricao: vetor [1..5] de caracter

fim,iniciar,opcao2: caracter

opcao: inteiro

ordem: inteiro

inicio

ordem <- 1

escreval("OPCOES")

escreval("")

escreval("Escolha a Opcao que Deseja Executar:")

escreval("")

escreval("1. Cadastro de Novo Produto:")

escreval("2. Listagem de Produtos Cadastrados:")

escreval("3. Listar Produto e a Quantidade em Estoque:")

escreval("4. Gerar Cupom de Produtos Vendidos:")

escreval("5. Calcular o Valor total de Cupons:")

leia (opcao)

limpatela

escolha opcao

//cadastro dos produtos

caso 1

opcao2 <- "i"

enquanto opcao2 = "i" faca

escreval("Cadastrando um novo Produto na Loja:")

escreval("")

escreval("Digite o Código do PRODUTO:")

leia(codigo[ordem])

escreval("Digite a Descricao do PRODUTO:")

leia(descricao[ordem])

escreval("Digite o Valor do PRODUTO:")

leia(valor[ordem])

escreval("Para cadastrar mais um produto Tecle 'I'. Para finalizar tecle 'F'")

leia(opcao2)

fimenquanto

limpatela

escreval("Produto cadastrado com sucesso!!")

escreval("--------------------------------")

escreval("Para cadastrar mais um produto Tecle 'I'. Para voltar ao menu tecle 'F'")

leia(opcao2)

fimescolha

escolha opcao2

caso "f"

escreval("Sistema Encerrado.")

caso "i"

enquanto opcao2 = "i" faca

escreval("Cadastrando um novo Produto na Loja:")

escreval("")

escreval("Digite o Código do PRODUTO:")

leia(codigo[ordem])

escreval("Digite a Descricao do PRODUTO:")

leia(descricao[ordem])

escreval("Digite o Valor do PRODUTO:")

leia(valor[ordem])

escreval("Para cadastrar mais um produto Tecle 'I'. Para finalizar tecle 'F'")

leia(opcao2)

fimenquanto

fimescolha

escolha opcao

//listagem dos produtos

caso 2

escreval("2. Listagem de Produtos Cadastrados:")

escreval("Digite o codigo do produto:")

leia(codigo[ordem])

escreval("O Produto Cadastrado é", [descricao], ".")

fimescolha

fimalgoritmo