Galkov, Здраствуйте!

Да, видел содержание, пробовал таким образом процедуры объявить но компилятор ругается, в примерах с ним не нашёл подобия. Несомнено Ваш код гораздо лучше только не запускается, видать ненравится переменная на указатель процедуры (а я с ними (указателями) даже ещё неразбирался), жаль времени мне мало дали, вроде задача плёвая но когда мало знаешь но ещё и половину забыл то на ровном месте буксуешь бывает. А стёком я обеспокоен завтра посмотрю на работе (главное чтобы на столе у препода не глюконуло )
В любом случае спасибо большое, будем подтягивать уровень.