Каково применение сего чуда?
Будь добр, весь код выложи. Или если это весь код, то я могу предложить более простой способ присвоения 15-ти элементам массива значения 0.
Ну а если быть серьезным то дописывай:
В var
а так-же в RList:
и
Код:
if New[r] = 0 then
begin
inc(fuck);
...
Все что я смог сообразить на ночь глядя.
Да и вобще, какого лешего нужно было писать целую процедуру да и еще потом её саму с себя вызывать для того что бы выполнить одну строчку кода: r := Random(14); ах, да и поправь массивы - это же не серьезно совсем.