Фрагмент программы:
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;