[NIch]

я так понимаю, что ее нужно объявить заранее...рядом с секциями var, type процедуры введи

Код:

Label Metka;