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

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

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.