Ajuda com algoritmo de fluxo de caixa

[shinnygami]

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.