Удалить все элементы инфоблока

Удаляет все элементы из инфоблока, показывает статус удалений

$arEls = Array();
$arSelect = Array("ID");
$arFilter = Array("IBLOCK_ID" => IB_CATALOG);
$res = CIBlockElement::GetList(Array(), $arFilter, false, false, $arSelect);
while ($ob = $res->GetNext()) {
    $arEls[] = $ob;
}

foreach ($arEls as $el) {
    if (CIBlockElement::Delete($el["ID"])) {
        echo "OK delete " . $el["ID"];
    } else {
        echo "ERROR delete " . $el["ID"];
    }

}