Помогите пожалуйста с сортировкой в Turbo Vision. Нужно, чтоб сортировало и украинские символы... Код есть, только ничё не сортирует. Плз. Помогите кто знает...
Фрагмент программы:

Procedure SearchItem;
Function UpString(s: String): String;
var k: Integer;
begin
     for k := 1 to Length(s) do
     if s[k] in ['a'..'z'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a'))
     else
         if s[k] in [' а'..'i','ї'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a') )
     else
         if s[k] in ['К'..'п'] then s[k]:=chr(ord('A')+ord(s[k])-ord('a'))
     else
         if s[k] in ['р'..'я'] then s[k]:=chr(ord('P')+ord(s[k])-ord('p'));
     UpString:=s
end;
 

!!