> -- sasha-kulov писал(а):
> Спасибо, а куда эту функцию подцепить,и будет ли обнаружена ошибка на этапе компиляции?


BEGIN
нота.момент:= 100;
нота.струна:= SetСтруна(значение);
нота.лад := SetЛад(значение);
END;

Будет ошибка при выполнении программы.