Помогите доделать задачу на паскале

[infff]

Собстевнно нужно сделать прогу которая переводит с трансита но немогу понять как сделать чтоб переводились некоторые буквы типо "ч,Ш,Ь,э,ю,я" "Сh,sh,ea,iu,ea"

Program Prog;                                              
  uses  crt;
     type T = array [1..10] of string;
    const arr : T = ('ch', 'sh', 'sh', 'iu', 'ea', 'Ch', 'Sh', 'Sh', 'Iu', 'Ea') ;
  var i , a: integer;
      s1, s2, rus, lat, rus2: string;
     label l;
  begin
     clrscr;
     lat:='абвгдеёжзийклмнопрстуфхцчшщьъэюя ';
     rus:='abvgdeejziiklmnoprstufhc         A';
     writeln('VVod stroki');
     readln(s1);

        for i:=1 to length (s1) do begin
             for a:=1 to 58 do
                if  s1[i]=rus[a] then begin s2:=s2+lat[a]; goto l end;
              for a:=1 to 10 do
                    if  s1[i]=rus2[a] then begin s2:=s2+arr[a]; goto l end;
                    
                  l:;
             end;
             
             writeln ('Vivod:   ', s2);
             readkey;
    
 end.

[Stilet]

Я бы эти буквы сделал в отдельном массиве
Например так:

var 
alterEN:array[1..10] of char=('ch', 'sh', 'sh', 'iu', 'ea', 'Ch', 'Sh', 'Sh', 'Iu', 'Ea');
alterRU:array[1..10] of char=('ч', 'ш', 'щ', 'ю', 'я', 'Ч', 'Ш', 'Щ', 'Ю', 'Я');

Потом бы искал в RU эту букву и если она там есть выбирал аналог из EN

[infff]

Спс за помошь