Pesquisar na Comunidade

Olá gente, sou novo aqui. Queria pedir uma pequena ajuda: Passo 1 - Fazer a leitura de produtos para colocar no estoque. As informações de cada produto são um código numérico, uma descrição, quantidade de itens e o valor unitário de cada item. Deverão ser lidos 10 produtos diferentes; Passo 2 - A partir da leitura inicial, poderão ser realizadas as seguintes operações: - Inclusão de novos itens no estoque, para produtos já cadastrados anteriormente no primeiro passo. Nesse momento basta que seja lido o código do produto e quantos itens deseja-se inserir. Após isso, atualizar a quantidade de itens no estoque. - Retirada de tens no estoque. Nesse momento basta que seja lido o código do produto e quantos itens deseja-se retirar. Caso a quantidade a ser retirada for maior do que atual em estoque, deve ser dada uma mensagem dizendo "Estoque Insuficiente". Caso contrário atualizar a quantidade em estoque. As operações do passo 2 serão realizados dentro de uma estrutura de repetição, sempre fazendo a leitura do tipo de operação desejada: "I" ou "R", Inclusão ou Retirada. Quando for digitada uma operação diferente dessas duas, a repetição deve finalizar. Passo 3 - Após a finalização do passo 2, deve-se mostrar na tela: - a quantidade atual em estoque de cada um dos 10 produtos (quantidade de itens de cada produto e o valor total em estoque de cada produto). - valor total do estoque (a soma dos valores totais de cada produto) so conseguir fazer ate aqui: Var preço: vetor[1..10] de real quantidade, codigo: vetor[1..10] de inteiro nome : vetor[1..10] de caractere i,valor: inteiro op:caractere procedimento Topo inicio LimpaTela Escreval("----------------------------------") Escreval("--------FLUXO DE ESTOQUE----------") Escreval("----------------------------------") fimprocedimento Inicio para i < -1 ate 2 faca Topo Escreval("Informe o nome do ", i , "o produto:") leia(nome) Escreval("Informe um codigo para o ", i ,"o produto: ") leia(codigo) Escreval("Informe o preço unitario do ", i , "o produto: ") leia(preço) Escreval("Informe a quantidade do ", i , "o produto: ") leia(quantidade) fimpara ..... basicamente falando, eu so consegui fazer a leitura do que foi pedido no passo 1. obs: no para eu coloquei de 1 ate 2 so para não ter que ficar testando 10 vezes toda hora.