Программа

FUNCTION UpCaseStr(S:string):string;
  Var i:byte;
  Begin
    for i:=1 to Length(S) do
      case S[i] of
        'a'..'z':S[i]:=Chr(Ord(S[i])-Ord('a')+Ord('A'));
        'а'..'п':S[i]:=Chr(Ord(S[i])-Ord('а')+Ord('А'));
        'р'..'я':S[i]:=Chr(Ord(S[i])-Ord('р')+Ord('Р'));
             'ё':S[i]:='Ё';
      end;
    UpCaseStr:=S
  End;
BEGIN
  WriteLn('hlam HLAM  /0986754211!@#$%&***&\|  абвг АБВГ ря РЯ ЁЁёё');
  WriteLn(UpCAseStr('hlam HLAM  /0986754211!@#$%&***&\|  абвг АБВГ ря РЯ ЁЁёё'));
END.