Можно конечно сделать так
CONST
лад01 = 1;
лад02 = 2;
лад03 = 3;
лад04 = 4;
лад05 = 5;
лад06 = 6;
лад07 = 7;
лад08 = 8;
лад09 = 9;
лад10 = 10;
лад11 = 11;
лад12 = 12;

И при присваивании, быть внимательнее. Что бы вместо
нота.лад := лад03;

Не написать

нота.лад := Струна03;

Так как тип то один.