ayuda con pascal por fa

[Naly09]

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