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

const
    n = 15;
    atext: array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');
    acode: array[1..11] of string = ('&','+','/','.','^','@','"','!','%','#','$');
var
    mytext: array[1..n] of char;
    mycode: array[1..n] of string;
    i, j: integer;
 
begin
    writeln('Введите данные: ');
    for i := 1 to n do
        read(mytext[i]);
 
    for i := 1 to n do begin
        j := 1;
        while (j <= 10) and (mytext[i] <> atext[j]) do
            j := j + 1;
        if j <= 10 then
            mycode[i] := acode[j]
        else
            mycode[i] := acode[11];
    end;
 
    write('Результат: ');
    for i := 1 to n do
        write(mycode[i]);
 
readln;
end.

atext: array[1..10] of char = ('0','1','2','3','4','5','6','7','8','9');

acode: array[1..11] of string = ('&','+','/','.','^','@','"','!','%','#','$');

type
  tCodecs = record
    Litter : Char;
    Code : Integer;
  end;

const
  Codecs : array of tCodecs = ((Litter:'А';Code:202),(Litter:'Б';Code:201),(Litter:'В';Code:204), . . .);

begin
  var s := ReadLnString;
  var a : array of Integer;
  SetLength(a, s.Length);
  for var i := 1 to s.Length do
    foreach var c in Codecs do
      if c.Litter = s[i] then
        a[Pred(i)] := c.Code;
  a.Println; 
end.