int sxbcr(int i,int x,int v[],int *p)
{
    int j,n;
    n=*p;
    if((i<1) || (i>n+1))
      return (0);
    else
    {  for(j=n;n>=i;j--)
         v[j]=v[j-1];
       v[j]=x;
       *p=++n;
       return (1);
    }
}