Я товю программу не запускал -у мея счас нету паскаля на компе - он у меня исчез далеко на первом курсе. Просто я говою о нецелесообразности твоей программы - у нее и выч сложность на порядок больше моей и она еще не являеться Объектно-ориентированой. К тому же что за бяка - как ты передаешь в процедуру массив, который у тебя число... ну просто омерзительно - надо создать свой тип и передавать ссылку! того типа.