void DeleteRK(ListR &LR, ListK &LK, string x){
        addressR R = first(LR);
        addressK K = FindElmK(LK, x);
        while (K != NULL && R!=NULL){
            DeleteR(LR, provinsi(R), K);
            R = next(R);
        }
        DeleteK(LK, x);
}

void DeleteRP(ListR &LR, ListP &LP, string x){
    addressR R = first(LR);
    addressP P = FindElmP(LP, x);
    while (P != NULL && R!=NULL){
        DeleteR(LR, P, komoditas(R));
        R = next(R);
    }
    DeleteP(LP, x);
}