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.