function LoCaseRus( ch : Char ) : Char;
{Перевод символа в нижний регистр для русского алфавита}
asm
 CMP AL,'A'
 JB @@exit
 CMP AL,'Z'
 JA @@Rus
 ADD AL,'a' - 'A'
 RET
@@Rus:
 CMP AL,'Я'
 JA @@Exit
 CMP AL,'А'
 JB @@yo
 ADD AL,'я' - 'Я'
 RET
@@yo:
 CMP AL,'?'
 JNE @@exit
 MOV AL,'?'
@@exit:
end;