//В 1С регистр проверяют через ВРег и НРег
Знак = "a";

//Второе условие отсекает символы без
//регистра: у цифр и знаков ВРег = НРег
ВВерхнем = (Знак = ВРег(Знак)) И
    (Знак <> НРег(Знак));
//ВВерхнем = Ложь

ВНижнем = (Знак = НРег(Знак)) И
    (Знак <> ВРег(Знак));
//ВНижнем = Истина

Сообщить("ВВерхнем: " + ВВерхнем);
Сообщить("ВНижнем: " + ВНижнем);