[PASCAL] Sistema de Estoque em Pascal

Program sistemaDeEstoque;

type
    reg_mercadoria = record
        codigo:integer;
        nome:string;
        quantidade_estoque:integer;
        preco_compra:integer;
        preco_venda:integer;
        estoque:integer;
        datadocadastro:string;
        sendoUsada:boolean;
    end;
var
    mercadoria:array[1..100] of reg_mercadoria;
    i:integer;
    posicao:integer;
    opcao:integer;
    codigoPesquisado:integer;
    novoEstoque:integer;
Begin
    posicao := 0;
    opcao := 1;
    while(opcao <> 0) do
    begin
        textbackground(black);
        textcolor(white);
        clrscr;
        writeln('______________________ Cadastro de Estoque ___________________________');
        writeln(' ');
        writeln(' Digite a opção desejada:                                             ');
        writeln(' 1 - Cadastrar mercadorias ( nova )');
        writeln(' 2 - Pesquisar mercadorias ');
        writeln(' 3 - Alterar a quantidade de estoque ');
        writeln(' 4 - Efetuar saida de mercadoria ');
        writeln(' 5 - Alterar uma mercadoria ( preço )');
        writeln(' 6 - Excluir mercadoria ');
        writeln(' 7 - Imprimir mercadorias');
        writeln(' [0] - Sair do programa');
        writeln('_______________________________________________________________________');
        gotoxy(27,3);
        read(opcao);
        if(opcao = 1) then
        begin
            clrscr;
            posicao:=posicao+1;
            writeln('------------------------------------------------------------------');
            writeln('Digite o nome da nova mercadoria:                     ');
            writeln('Digite o preço de compra mercadoria:                  ');
            writeln('Digite o preço de venda da mercadoria:                ');
            writeln('Digite o estoque dela:                         ');
            writeln('Data do cadastro:                                     ');
            writeln('------------------------------------------------------------------');
            mercadoria[posicao].codigo := posicao;
            gotoxy(35,2);
            readln(mercadoria[posicao].nome);
            gotoxy(38,3);
            readln(mercadoria[posicao].preco_compra);
            gotoxy(40,4);
            readln(mercadoria[posicao].preco_venda);
            gotoxy(28,5);
            readln(mercadoria[posicao].estoque);
            gotoxy(20,6);
             readln(mercadoria[posicao].datadocadastro);
            gotoxy(1,10);
            mercadoria[posicao].sendoUsada := true;
            textcolor(green);
            writeln('Código da mercadoria: ',posicao);
            writeln('Aperte uma tecla para sair do menu de cadastro.');
            textcolor(white);
            readkey;
        end;
        if(opcao = 2) then
        begin
            clrscr;
            codigoPesquisado:=0;
            writeln('Digite o código a ser pesquisado:');
            readln(codigoPesquisado);
            if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
            begin
                writeln('Nome: ', mercadoria[codigoPesquisado].nome);
                writeln('Preço de compra: ', mercadoria[codigoPesquisado].preco_compra);
                writeln('Preço de venda: ', mercadoria[codigoPesquisado].preco_venda);
                writeln('Estoque minimo: ', mercadoria[codigoPesquisado].estoque);
                writeln('Data do cadastro: ', mercadoria[codigoPesquisado].datadocadastro);
                textcolor(green);
                writeln('Aperte uma tecla para sair do menu de cadastro.');
                textcolor(white);
                readkey;
            end
            else
            begin
                writeln('Código inválido! aperte uma tecla para voltar ao menu.');
                readkey;
            end;
        end;
        if(opcao = 3) then
        begin
            clrscr;
            writeln('Digite o código da mercadoria a ser alterada.');
            readln(codigoPesquisado);
            if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
            begin
                writeln('Mercadoria: ',mercadoria[codigoPesquisado].nome,', estoque: ',mercadoria[codigoPesquisado].estoque);
                writeln('Digite o novo estoque da mercadoria: ');
                read(novoEstoque);
                mercadoria[codigoPesquisado].estoque := novoEstoque;
                textcolor(green);
                writeln('Aperte uma tecla para sair do menu de cadastro.');
                textcolor(white);
                readkey;
            end
            else
            begin
                writeln('Código inválido! aperte uma tecla para voltar ao menu.');
                readkey;
            end;
        end;
        if(opcao = 4) then
        begin
            clrscr;
            writeln('Digite o código da mercadoria a ser alterada.');
            readln(codigoPesquisado);
            if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
            begin
                writeln('Digite a quantidade de estoque que saiu da mercadoria ',mercadoria[codigoPesquisado].nome);
                readln(novoEstoque);
                mercadoria[codigoPesquisado].estoque := mercadoria[codigoPesquisado].estoque-novoEstoque;
                writeln('Novo estoque: ',mercadoria[codigoPesquisado].estoque);
                readkey;
            end
            else
            begin
                writeln('Código inválido! aperte uma tecla para voltar ao menu.');
                readkey;
            end;
        end;
        if(opcao = 5) then
        begin
            clrscr;
            writeln('Digite o código da mercadoria a ser alterada.');
            readln(codigoPesquisado);
            if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
            begin
                writeln('Digite o novo preço da mercadoria ',mercadoria[codigoPesquisado].nome);
                readln(novoEstoque);
                mercadoria[codigoPesquisado].preco_venda := novoEstoque;
                writeln('Novo estoque: ',mercadoria[codigoPesquisado].preco_venda);
                readkey;
            end
            else
            begin
                writeln('Código inválido! aperte uma tecla para voltar ao menu.');
                readkey;
            end;
        end;
        if(opcao = 6) then
        begin
            clrscr;
            writeln('Digite o código da mercadoria a ser excluida!');
            writeln('AVISO: Excluido uma vez não poderá voltar atrás !');
            readln(codigoPesquisado);
            if(codigoPesquisado < posicao) AND (mercadoria[codigoPesquisado].sendoUsada = true) then
            begin
                mercadoria[codigoPesquisado].nome := 'Não ultilizada';
                mercadoria[codigoPesquisado].sendoUsada := false;
                writeln('Mercadoria: ',codigoPesquisado,' excluida.');
                readkey;
            end
            else
            begin
                writeln('Código inválido! aperte uma tecla para voltar ao menu.');
                readkey;
            end;

        end;
        if(opcao = 7) then
        begin
            clrscr;
            for i:= 1 to posicao do
            begin
                if(mercadoria[i].sendoUsada = true) then
                begin
                    writeln('<',i,'> Nome: ',mercadoria[i].nome,' estoque: ',mercadoria[i].estoque);
                end
            end;
            readkey;
        end;
    end;
End.