erro pascal menu case pesquisa e relatório de estoque

magnifico
(usa Ubuntu)

Enviado em 23/02/2013 - 19:13h

program armazem ;
var prod: array[1..100,1..4] of string; //pro[i,1]= codigo | pro[i,2]=nome |
x,i,iv:integer; //x=variavel case | i=variavel indice |iv=indece venda |
pcod,pvcod:string;
xi,re:char;

Begin
readln;
gotoxy(20,2);
writeln('Armazem ');
repeat
gotoxy(3,5);
writeln('Aperte [1] Cadastro de produto');
delay(500);
gotoxy(3,7);
writeln('Aperte [2] Registro de venda');
delay(500);
gotoxy(3,9);
writeln('Aperte [3] Relatório');
write('opcao:'); read(x);

case x of

1: Begin
clrscr;
repeat
clrscr;
i:=1;
Gotoxy(3,2);
writeln ('Cadastro de Produto');
gotoxy(3,5);
writeln('Codigo: ');
read (prod[i,1]);
gotoxy(3,7);
writeln('Nome do Produto');
read(prod[i,2]);
gotoxy(3,9);
writeln('Valor R$ ');
readln(prod[i,3]);
gotoxy(3,11);
writeln ('Quantidade: ');
read(prod[i,4]);
gotoxy (12,15);
writeln('Fim do Cadastro');
delay(500);
i:=i+1;
gotoxy(15,18);
writeln('Novo cadastro ');delay(200);writeln('Digite 1'); delay(200);writeln('Sair 2');
re:=readkey;
until(re='2');
end;

2: begin
clrscr;
i:=i+1;
gotoxy(2,10);
Writeln('Registro de Vendas');
gotoxy(5,10);
write('Produto codigo: ');
readln (pvcod);
while pvcod <> prod[i,1] do begin
i:=i+1;
end;
gotoxy(5,14);
write('No estoque temos contabilizado ',prod[i,4],' deste produto.');
gotoxy(5,16);
write (prod[i,2]);
readln(pvcod); //usando a mesma variavel pra acumular a venda!
write(prod[1,4]);
end;

3: begin

i:=1;
//iv:=5;
gotoxy(15,15);
write('lista de produtos');
{gotoxy(8,10);
write('Codigo'); gotoxy(8,15); write('Nome'); gotoxy(8,25); write('valor'); gotoxy(8,35); writeln('Quantidade'); }
for i :=1 to 100 do
writeln (prod[i,1]);
i:=i+1;
//iv:=iv+1;



end;




end;
clrscr;
writeln('Retornar aperte S Sair N');
xi:=readkey;
until(xi='n')or(xi='N');







End.