Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением - C (СИ)

#include <stdio.h>
#include <stdlib.h>
 
int Action(int *F, int *R, int n, int l)
{
    int i,j,o,count,c,p;
    int *T;
    
    T=(int *) calloc(n, sizeof(int));
 
    p=F[0];
    count=1;
    j=1;
    o=0;
    
    while (1)
    {
         if (j >= n) break;
          
         c=F[j];
         
         if (c==p) 
            count++;
         else
         {
            if ((count < l) && (count > 1))
               R[o++]=0;       
            else
               for (i=1; i<=count; i++) R[o++]=p;
            count=1;   
         }   
                  
         p=c;
         j++;
                                
    }    
    if ((count < l) && (count > 1))
       R[o++]=0;       
    else
       for (i=1; i<=count; i++) R[o++]=p;
 
    /* освободим неиспользованную память */
 
    realloc(R,o*sizeof(int)); 
 
    return o;
    
}        
 
int main(int argc, char *argv[])
{
 
  int *A,*B;
  int n,l,i,k;
  
  n=10;
  l=3;
  
  A=(int *) calloc(n,sizeof(int));
  B=(int *) calloc(n,sizeof(int));
  
  A[0]=1;
  A[1]=1;
  A[2]=2;
  A[3]=3;
  A[4]=4;
  A[5]=4;
  A[6]=4;
  A[7]=5;
  A[8]=5;
  A[9]=5;
  
  k=Action(A,B,n,l);
  
  for (i=0; i<k; i++) printf("%d ",B[i]);
  printf("\n");
  
  free(A);
  free(B);
  
  system("PAUSE");  
  return 0;
}