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

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

Здравствуйте. Столкнулся с проблемой, что не могу написать простой шифратор который шифрует входящий текст!

За основу был взят этот код:

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 = ('&','+','/','.','^','@','"','!','%','#','$');

У меня получится простой шифратор. Но он отказывается работать. Подскажите ошибки и как их можно исправить! Заранее спасибо!

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

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

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.

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

Вводится строка с помощью функции ReadLnString.
Создается массив a типа array of Integer.
Присваивается длина массива равная длине введенной строки с помощью функции SetLength.
Происходит двойной цикл, который проходит по каждому символу строки.
Внешний цикл for перебирает символы строки от 1 до длины строки.
Внутренний цикл foreach перебирает кодировки символов в массиве Codecs.
Если символ в строке равен кодировке символа в массиве Codecs, то код этого символа записывается в массив a.
Функция Println вызывается для вывода массива a.