VisualG Puxar um procedimento no Visual G

[Vktcs18]

Estou fazendo com procedimentos pelo VisualG e esta dando bom ate ai ta rodando no VisualG, mas quando tempo puxar o procedimento "cadastrar produtos" para caso 1 ele informa que não encontra a Variável caract_cell sendo que declarei ela como registro no inicio.

 

Algoritmo "algo"
tipo
   caract_cell = registro
      codigo:inteiro
      modelo:caracter
      marca:caracter
      preco:real
   fimRegistro
var
   opcao:inteiro
   
procedimento menu_principal
inicio
   escreval("+++++++++++++++++++++++++++++++++++")
   escreval("+ 1 - Cadastrar produtos          +") //informar para o usuário se o produto foi cadastrado ou não
   escreval("+ 2 - Todos os produtos           +")
   escreval("+ 3 - Pesquisar um produto        +") //informar ao usuário  que o produto não foi encontrado caso ocorra.
   escreval("+ 4 - Sair                        +")
   escreval("+++++++++++++++++++++++++++++++++++")
fimprocedimento

procedimento cadastrarprodutos
var
   i,codigo:inteiro
inicio
   para i de 1 ate 100 faca
      escreval("Informe o código do produto")
      leia(caract_cell[i].codigo)
      escreval("Informe o modelo do produto")
      leia(caract_cell[i].modelo)
      escreval("Informe a marca do produto")
      leia(caract_cell[i].marca)
      escreval("Informe o preço do produto")
      leia(caract_cell[i].preco)
   fimpara
fimProcedimento

inicio
   repita
      menu_principal
      escreva("=====> ")
      leia(opcao)
      limpaTela

      escolha(opcao)
      caso 1
         cadastrarprodutos
      caso 2

      caso 3

      caso 4
         escreval("Obrigado pela preferência")
      outrocaso
         escreval("*********Opção Inválida**********")
      fimEscolha
   ate opcao = 4
fimAlgoritmo

 

Alguém tem alguma solução pra ajudar no codigo ?

[JorgeGus]

Você declarou um tipo, mas não declarou um vetor desse tipo.

 

Declare por exemplo:

produtos: vetor[1..100] de caract_cell

 

E mude a referência para:

leia(produtos[i].codigo)

 

[Vktcs18]

55 minutos atrás, JorgeGus disse:

Você declarou um tipo mas não declarou um vetor desse tipo.

 

Declare por exemplo:

produtos: vetor[1..100] de caract_cell

 

E mude a referência para:

leia(produtos[i].codigo)

 

 

Consegui aqui, te agradeço.