а блин точно... просто не вчитался... вывел эти элементы, надо было количество... сорри!

п.с. я больше бэйсик знаю, потом просто под паскаль переделываю. 2Soherox спасибо за корректировку