Masyvo vienodi elementai

Kaip reikia pasirašyti, kad mano masyve rastu pvz du ar daugiau vienodus skaičius (c++ ar pascal, nesvarbu)

void Radimas(int A[], int n, int & k)
{
   k = n;
   for (int i = 0; i < k; i++)
       if (A[i] == A[i+1]) {
           Salinimas(i, A, k);
           i = i - 1;
       }

}    

void Salinimas(int i, int A[], int & k)
{
   k = k - 1;
   for (int j = i; j <= k; j++)
       A[j] = A[j + 1];
}

void Radimas(int A[], int n, int & k)
{
   k = n;
   for (int i = 0; i < k; i++)
       if (A[i] == A[i+1]) {
           Salinimas(i, A, k);
           i = i - 1;
       }

}    

void Salinimas(int i, int A[], int & k)
{
   k = k - 1;
   for (int j = i; j <= k; j++)
       A[j] = A[j + 1];
}

Nesupratau prie ko tas šalinimas? Ir kažkaip ne tai ko man reikia

Susirikiuoji masyva, ir tada su radimo funkcija tikrini.

void Radimas(int A[], int n, int & k)
{
   k = n;
   for (int i = 0; i < k; i++)
       if (A[i] == A[i+1]) {
            ka_daryti_suradus_vienoda
       }

p.s. salinimo funkcija ten buvo ne prie to.

Ačiū, dabar veikia viskas