Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста - PascalABC.NET

Формулировка задачи:

Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста с кириллицы на латиницу.

Решение задачи: «Напишите программу, которая (использую оператор выбора – case) производит транслитерацию текста»

Листинг программы

Program tr;
var s:string;
i: integer;
 
begin
     writeln('Введите текст ');
     readln(s);
     for i:=1 to Length(s) do
     begin
     case s[i] of
     'А': write ('A');
    'Б': write ('B');
    'В': write ('V');
    'Г': write ('G');
    'Д': write ('D');
    'Е': write ('E');
    'Ё': write ('Yo');
    'Ж': write ('Zh');
    'З': write ('Z');
    'И': write ('I');
    'Й': write ('Y');
    'К': write ('K');
    'Л': write ('L');
    'М': write ('M');
    'Н': write ('N');
    'О': write ('O');
    'П': write ('P');
    'Р': write ('R');
    'С': write ('S');
    'Т': write ('T');
    'У': write ('U');
    'Ф': write ('F');
    'Х': write ('Kh');
    'Ц': write ('Ts');
    'Ч': write ('Ch');
    'Ш': write ('Sh');
    'Щ': write ('Shch');
    'Ь': write ('');
    'Ы': write ('Y');
    'Ъ': write ('');
    'Э': write ('E');
    'Ю': write ('Yu');
    'Я': write ('Ya');
    'а': write ('a');
    'б': write ('b');
    'в': write ('v');
    'г': write ('g');
    'д': write ('d');
    'е': write ('e');
    'ё': write ('yo');
    'ж': write ('zh');
    'з': write ('z');
    'и': write ('i');
    'й': write ('y');
    'к': write ('k');
    'л': write ('l');
    'м': write ('m');
    'н': write ('n');
    'о': write ('o');
    'п': write ('p');
    'р': write ('r');
    'с': write ('s');
    'т': write ('t');
    'у': write ('u');
    'ф': write ('f');
    'х': write ('kh');
    'ц': write ('ts');
    'ч': write ('ch');
    'ш': write ('sh');
    'щ': write ('shch');
    'ь': write ('');
    'ы': write ('y');
    'ъ': write ('');
    'э': write ('e');
    'ю': write ('yu');
    'я': write ('ya');
    ' ': write (' ');
   
    else writeln ('Error!');
    end;
    end;
     readln;
end.

Объяснение кода листинга программы

[1] Program tr; [2] var s:string; [3] i: integer; [4] begin [5] writeln('Введите текст '); [6] readln(s); [7] for i:=1 to Length(s) do [8] begin [9] case s[i] of [10] 'А': write ('A'); [11] 'Б': write ('B'); [12] 'В': write ('V'); [13] 'Г': write ('G'); [14] 'Д': write ('D'); [15] 'Е': write ('E'); [16] 'Ё': write ('Yo'); [17] 'Ж': write ('Zh'); [18] 'З': write ('Z'); [19] 'И': write ('I'); [20] 'Й': write ('Y'); [21] 'К': write ('K'); [22] 'Л': write ('L'); [23] 'М': write ('M'); [24] 'Н': write ('N'); [25] 'О': write ('O'); [26] 'П': write ('P'); [27] 'Р': write ('R'); [28] 'С': write ('S'); [29] 'Т': write ('T'); [30] 'У': write ('U'); [31] 'Ф': write ('F'); [32] 'Х': write ('Kh'); [33] 'Ц': write ('Ts'); [34] 'Ч': write ('Ch'); [35] 'Ш': write ('Sh'); [36] 'Щ': write ('Shch'); [37] 'Ь': write (''); [38] 'Ы': write ('Y'); [39] 'Ъ': write (''); [40] 'Э': write ('E'); [41] 'Ю': write ('Yu'); [42] 'Я': write ('Ya'); [43] ' ': write (' '); [44] [45] else [46] begin [47] writeln('Error!'); [48] end; [49] end; [50] readln; [51] end.