Programa em pascal com código de produtos com case

...Programa em pascal para calcular e mostrar o estoque com código de produtos e código de país com CASE..
{*Função do programa: Calcular e mostrar Nome do Programa: Controle de estoque Supermercado Nome do programador: Anderson de Oliveira versão: 1.0 Data: 29/03/2012 *}

Program calc_mostrar; Uses wincrt;

{Declaração de Variáveis}

Var

codigo_produto,codigo_pais:integer; peso_grama,pesokg,imposto,preco_total,valor_total,preco_grama:real;

{Início do Programa}

Begin {Entrada de dados} writeln('***********************************************************************'); writeln('* *'); writeln('* MENU PRINCIPAL *'); writeln('* *'); writeln('* Digite o código do produto de uma das opções abaixo: *'); writeln('* 1 = Arroz *'); writeln('* 2 = Feijão *'); writeln('* 3 = Macarrão *'); writeln('* 4 = Batata *'); writeln('* 5 = Cenoura *'); writeln('* 6 = Farinha *'); writeln('* 7 = Chocolate *'); writeln('* 8 = Bolacha *'); writeln('* 9 = Refrigerante *'); writeln('* 10 = Maionese *');