apskritys VBE

    int m = 0; // rezultatu masyvas
    for(int i = 0; i<n; i++){
        // ieskoma, ar apskritis jau yra rezultatu masyve. Si funkcija grazina apskrities indeksa (vieta) Rezultatu masyve,
        // jeigu tokios apskrities nera, grazinama -1:
        int k = ArYra(/**parametrai**/);
        if(k >= 0)
            Rezultatas[k].kiekis_apskriciu++;
        else{
            Rezultatas[m] = Duomenys[i]; // apskritis is duomenu failo rasoma i rezultatu masyva
            m++;                         // didinamas apskriciu skaicius rezultatu masyve
        }
    }