Tad, спасибо но увы непомогло, только коментируешь процедуру всё компелируется (хотя такой цикл гораздо привлекательней). Не могу объявить процедуры в начале файла, private нет такого ключевого слова в этом компиляторе, есть наверно другие способы но пока их незнаю, в примерах исходников не нашёл, ладно переделаю пока программу, время ещё есть