Создайте шаблон функции: переписать подряд в два массива положительные и отрицательные элементы исходного

const int size=10;
int arr [size]={1,-2,-3,-4,5,-6,7,8,9,10};
int pol=0, otr=0;
int polcount=0, otrcount=0,i=0;
Memo1->Text="";
 
Memo1->Lines->Add("Массив");
for (i=0; i<size; i++)
    {
    Memo1->Lines->Add(arr[i]);
    if (arr[i]>=0){pol++;}
        else{otr++;}
    }
 
int *otrarr = new int[otr];
int *polarr = new int[pol];
 
 
for(i=0; i<size; i++)
    {
    if (arr[i]>=0)
        {
        polarr[polcount]=arr[i];
        polcount++;
        }
            else
            {
            otrarr[otrcount]=arr[i];
            otrcount++;
            }
    }
 
Memo1->Lines->Add("Отрицательные");
for (i=0; i<otr;i++)
    {
    Memo1->Lines->Add(otrarr[i]);
    }
 
Memo1->Lines->Add("Положительные");
for (i=0; i<pol;i++)
    {
    Memo1->Lines->Add(polarr[i]);
    }