[vint56]

yamaha,
var
n: Integer; значит еще где есть n: поблизости значит найди и удали и не будет дубликата