[NLObP]

Добавь в начале, после VAR
tac : integer;