while()
{
j:=a[n];
remove(a[n]);
n:= j mod kiekis;
if n = 0 then n = kiekis;
}