pirralho

Boa galera venho aqui pedir a vcs uma ajudinha to precisando de um algoritmo em visualg que tenha as seguintes funcoes

O sistema deve permitir o cadastro, listagem e pesquisa de filmes e clientes. Bem como alugar
e devolver um filme.
O cliente deve possuir código, nome e CPF.
O filme deve possuir código, nome, categoria e status (Alugado ou Livre), caso esteja alugado
deve-se informa o código do cliente que alugou

aqui vai uma pequena amostra do algoritmo mas to ficando sem cabelos ja

ainda nao fiz o menu principal mas ele e assim



ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| SISTEMA DE CADASTRO |")
ESCREVAL ("-------------------------------------------------------------------------------")
ESCREVAL ("| 1. CADASTRAR CLIENTES |")
ESCREVAL ("| 2. CADASTRAR FILMES |")
ESCREVAL ("| 3. ALUGAR |")
SCREVAL ("| 4. DEVOLVER |")
ESCREVAL ("| 5. SAIR |")
ESCREVAL ("| |")
ESCREVAL ("------------------------------------------------------------------ -------------")

CADA OPCAO VAI PARA OUTRO MENU
PROCEMINTO 1 VAI PARA O MENU CLIENTE
QUE TEM

CADASTRA CLIENTE
LISTA
SAI
PROCEDIMENTO 2 VAI PARA O MENU FILME
CADASTRAR FILME
LISTAR
SAIR
PROCEDIMENTO 3 VAI PARA MENU ALUGAR

DIGITE O CODIGO DO CLIENTE
DIGITE O CODIGO DO FILME
FILME ALUGADO !

PROCIMENTO 4 DEVOLVER FILME
DIGITE O CODIGO DO FILME
FILME DEVOLVIDO

PROCEDIMENTO 5 SAIR

algoritmo "semnome"
// Função :
// Autor :
// Data : 09/10/2009
// Seção de Declarações
var
PROCEDIMENTO MENU_PRINCIPAL
PROCEDIMENTO CLIENTES
OPC:CARACTER
INICIO
procedimento cad
inicio
ESCREVAL ("CADASTRAR CLIENTES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
ESCREVAL ("DIGITE O NOME DO CLIENTE.")
MATFIM<-MATFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
LEIA (NOME[MATFIM])//ARMAZENAR O NOME
ESCREVAL ("DIGITE O CPF DO CLIENTE ")
LEIA (CPF[MATFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
ESCREVAL("CLIENTE CADASTRADO COM SUCESSO")
REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
ESCREVAL ("DESEJA CADASTRAR MAIS UM CLIENTES?")
LEIA (OPC)
ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS CLIENTES")
PARA X DE 1 ATE MATFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
ESCREVAL (" CODIGO ", " NOME ", " CPF ")
ESCREVAL ( X , " ", NOME[X], " ", CPF[X])
FIMPARA
fimprocedimento
procedimento buscar
inicio
ESCREVAL ("BUSCAR CLIENTES")
ESCREVAL ("DIGITE A MATRICULA:")
LEIA (MATRICULA) //REALIZAR A BUSCA NO BANCO DE DADOS CADASTRADO ANTERIORMENTE PELO NÚMERO DA MATRÍCULA
SAL_TOTAL<-(CPF[MATRICULA]*100)+SALARIO_BASE[MATRICULA]
ESCREVAL ("O NOME DO CLIENTES: ", NOME[MATRICULA])
ESCREVAL ("NÚMERO DE DEPENDENTES: ", CPF[MATRICULA])
ESCREVAL ("O VALOR DO SALÁRIO BASE: ", SAL_TOTAL)
fimprocedimento
procedimento sair
inicio

fimprocedimento
var
procedimento CADFILME
inicio
ESCREVAL ("CADASTRAR FILMES")
REPITA //É PARA REPETIR O CADASTRO, E ASSIM, CADASTRANDO VÁRIOS USUÁRIO EM SEQUÊNCIA
ESCREVAL ("DIGITE O NOME DO FILME.")
CODFIM<-CODFIM+1 //É UTILIZADO O MATFIM MAIS UM PARA INFORMAR AO PROGRAMA QUE A MATRICULA ESTÁ CRESCENTE DE 1 EM 1.
LEIA (NOME[CODFIM])//ARMAZENAR O NOME
ESCREVAL ("DIGITE A CATEGORIA DO FILME ")
LEIA (CAT[CODFIM]) //ARMAZENAR O NÚMERO DE DEPENDENTES
ESCREVAL("FILME CADASTRADO COM SUCESSO")
REPITA // REPITA PARA TER UMA ALTERNATIVA DE CONTINUAÇÃO OU SAIR DO LAÇO
ESCREVAL ("DESEJA CADASTRAR MAIS UM FILMES?")
LEIA (OPC)
ATE (OPC="N") OU (OPC="S")
ATE OPC="N"
fimprocedimento
procedimento listar
inicio
ESCREVAL ("LISTAR TODOS OS FILMES")
PARA X DE 1 ATE CODFIM FACA //PARA REALIZAR A OPERAÇÃO ATÉ A QUANTIDADE DE MATFIM
ESCREVAL (" CODIGO ", " NOME ", " CATEGORIA,STATUS,ALUGADO POR ")
ESCREVAL ( X , " ", NOME[X], " ", CAT[X])
FIMPARA
fimprocedimento
CLIENTE, OPC1, LISTAR, ALTERAR, BUSCAR, CAD, ALT: CARACTER
NOME: VETOR [1..100] DE CARACTER

X, BUSCA, MATRICULA, MATFIM: INTEIRO
CPF: VETOR [1..100] DE INTEIRO
SALARIO_BASE: VETOR [1..100] DE REAL
SAL_TOTAL: REAL
CONT1, OPC: CARACTER
inicio
//PARA REPETIR O GRÁFICO ABAIXO
REPITA
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| SISTEMA DE CADASTRO |")
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVAL ("| 1. CADASTRAR CLIENTES |")
ESCREVAL ("| 2. LISTAR TODOS OS CLIENTES |")
ESCREVAL ("| 3. BUSCAR CLIENTES |")
ESCREVAL ("| 4. SAIR |")
ESCREVAL ("| |")
ESCREVAL ("----------------------------------------------------------------------------------")
ESCREVA (" OPÇÃO: ")
LEIA (OPC1)
//O LEIA É PARA ARMAZENAR A OPÇÃO
//A OPÇÃO É PARA ESCOLHER E ARMAZENAR A OPÇÃO DESEJADA
ESCOLHA OPC1
CASO "1"
cad
CASO "2"
listar
CASO "3"
buscar
CASO "4"//OPÇÃO ESCOLHA PARA SAIR DO PROGRAMA COM O COMANDO INTERROMPA ABAIXO
INTERROMPA
OUTROCASO
ESCREVAL ("OPÇÃO INVÁLIDA")
FIMESCOLHA //TERMINAR O FIM ESCOLHA
ESCREVAL ("DIGITE QUALQUER LETRA PARA CONTINUAR")
LEIA (CONT1) //ESSE LINHA SERVE PARA TER UMA PAUSA
LIMPATELA
FIMREPITA
// Seção de Comandos
FIMPROCEDIMENTO

fimalgoritmo
Agradeço quem me ajudar pois não sei mas oq fazer muito obg