Por favor necesito realizar en pascal un menu con 3 opciones, eso ya lo hice pero tengo q hacerlo con vectores:
1.ingresar=se ingresa datos de 1 a 1 hasta 6 cuando llega a 6 tengo q poner q el vector esta lleno;
2. borrar= este borra el primer dato del vector y cambia de posiciones el vector2 pasa hacer el 1 y asi sucesivamente
El problema q tengo es q se supone q cuando borro uno puedo ingresar otro numero pero el programa no me deja me pone q el vector todavia esta lleno... alguien me puede ayudar con esto por fa....
aqui esta el procedimiento q tengo hecho;
'1': Begin
clrscr;
con:=con +1;
if con>=7 then
writeln('cola llena')
else
begin
writeln('Digite Numero');
readln(num);
v1[con]:=num;
writeln('HAY ',con,'CAMPOS LLENOS');
end;
readkey;
alter(opcion);
end;
'2': Begin
clrscr;
write('BORRANDO DATO');
for i:=1 to 6 do
if i=6 then
v1[6]:=0
else
v1:=v1[i+1];
con:=con-1;
readkey;
alter(opcion);
end;
PORFA AYUDENME