programa 2

Realizar un programa, que permita llevar el control de ventas de una ferretería. En el menú principal debe incluir: Ingresar Venta, Ver Ventas, Salir del Programa.Si escojo trabajar con el menu 1, que me muestre un listado de productos, por lo menos deben aparecer 8 productos diferentes, de los cuales yo indico que producto voy a vender, y luego indico cuantas unidades. Que no me deje pasar de este proceso, hasta que elija una opciòn de otro menu, donde indique, vender o cancelar. Si elijo vender, que se cargue la venta registrada, si le doy cancelar, que me lleve al menu principal.Si yo quiero trabajar la opcion 2 del menu principal, me debe presentar si quiero ver venta por producto individual, o sea que me permita elegir el producto de que quiero ver la venta; o completa, donde aparece la venta de todos los productos.

program ferreteria;
uses crt;
var a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s:integer;
var e1,e2,e3,e4,e5,e6,e7:integer;
begin
d:=0;
e:=0;
f:=0;
g:=0;
h:=0;
i:=0;
j:=0;
k:=0;
l:=0;
e1:=0;
e2:=0;
e3:=0;
e4:=0;
e5:=0;
e6:=0;
e7:=0;
repeat
repeat
writeln('1 ingresar ventas');
writeln('2 ver ventas');
writeln('3 salir del programa');
readln(a);
if(a<1)>3) then
writeln('ingrese el numero correcto');
until(a>=1) and (a<=3);
writeln;
if(a=1) then
begin
repeat
writeln('1 pala 20');
writeln('2 azadon 20');
writeln('3 rastrillo 23');
writeln('4 cerruchos 19');
writeln('5 martillo 20');
writeln('6 machetes 30');
writeln('7 limas 12');
writeln('8 podadoras 45');
readln(c);if(c<1)>8) then
writeln('ingrese el numero correcto');
until(c>=1) and (c<=8);
writeln;
end;
if(c=1) then
beginwriteln('ingrese cuantas palas decea comprar');
readln(d);
e:=d*20;
end;
if(c=2) then
begin
writeln('ingrese cuantas azadon decea comprar');readln(f);
e1:=f*20;
end;
if(c=3) then
begin
writeln('ingrese cuantas rastrillo decea comprar');
readln(g);
e2:=g*23;
end;
if(c=4) then
beginwriteln('ingrese cuantas cerruchos decea comprar');
readln(h);
e3:=h*19;
end;
if(c=5) then
begin
writeln('ingrese cuantas martillos decea comprar');
readln(i);
e4:=i*20;
end;
if(c=6) then
begin
writeln('ingrese cuantas machetes decea comprar');
readln(j);
e5:=j*30;
end;
if(c=7) then
begin
writeln('ingrese cuantas limas decea comprar');
readln(k);
e6:=k*12;
end;
if(c=8) then
begin
writeln('ingrese cuantas podadoras decea comprar');
readln(l);
e7:=l*45;
end;
if(a=2)then
begin
writeln('usted compro la cantidad de palas de', d ,'al costo por pala es Q20:00la cantidad total es',e);
writeln('usted compro la cantidad de azadones de', f ,'al costo por azadon es Q20:00la cantidad total es',e1);
writeln('usted compro la cantidad de rastrillos de', g ,'al costo por rastrillo es Q23:00la cantidad total es',e2);
writeln('usted compro la cantidad de cerruchos de', h ,'al costo por cerruchos es Q19:00la cantidad total es',e3);
writeln('usted compro la cantidad de martillos de', i ,'al costo por martillos es Q20:00la cantidad total es',e4);
writeln('usted compro la cantidad de machetes de', j ,'al costo por machetes es Q30:00la cantidad total es',e5);
writeln('usted compro la cantidad de lima de', k ,'al costo por lima es Q12:00la cantidad total es',e6);
writeln('usted compro la cantidad de podadoras de', l ,'al costo por podadoras es Q45:00la cantidad total es',e7); end;writeln;until(a=3);writeln;
end.