function UpCaseRus(ch: Char): Char;
asm
 CMP AL,'a'
 JB @@exit
 CMP AL,'z'
 JA @@Rus
 SUB AL,'a' - 'A'
 RET
@@Rus:
 CMP AL,'я'
 JA @@Exit
 CMP AL,'а'
 JB @@yo
 SUB AL,'я' - 'Я'
 RET
@@yo:
 CMP AL,'?'
 JNE @@exit
 MOV AL,'?'
@@exit:
end;