execute procedure cari pemenang