01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / E1

program my_function_upcase;
uses crt;
var words:string;

procedure my_upcase (var words:string);
var i:byte;

procedure string_manipulation (var words:string; i:byte);
begin
words[i]:=upcase(words[i]);
case words[i] of
     '©':words[i]:='‰';
     'ж':words[i]:='–';
     'г':words[i]:='“';
     'Є':words[i]:='Љ';
     'Ґ':words[i]:='…';
     '­':words[i]:='H';
     'Ј':words[i]:='ѓ';
     'и':words[i]:='';
     'й':words[i]:='™';
     '§':words[i]:='‡';
     'е':words[i]:='•';
     'к':words[i]:='љ';
     'д':words[i]:='”';
     'л':words[i]:='›';
     'ў':words[i]:='‚';
     ' ':words[i]:='Ђ';
     'Ї':words[i]:='Џ';
     'а':words[i]:='ђ';
     '®':words[i]:='Ћ';
     '«':words[i]:='‹';
     '¤':words[i]:='„';
     '¦':words[i]:='†';
     'н':words[i]:='ќ';
     'п':words[i]:='џ';
     'з':words[i]:='—';
     'б':words[i]:='‘';
     '¬':words[i]:='Њ';
     'Ё':words[i]:='€';
     'в':words[i]:='’';
     'м':words[i]:='њ';
     'Ў':words[i]:='Ѓ';
     'о':words[i]:='ћ';
     end;
end;

begin
for i:=1 to length(words) do string_manipulation (words,i);
end;

begin
clrscr;
writeln ('‚ўҐ¤ЁвҐ бва®Єг');
readln (words);
my_upcase(words);
writeln(words);
readln;
end.