Строку перевести в число - Pascal

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

Необходимо строку перевести в число, а точнее набор слов. допустим у нас есть: teat reat megl мне нужно что бы определенная буква была определенной цифрой допустим: t=1 e=2 a=3 r=4 m=5 g=6 l=7... Естественно если у нас заданы такие слова :teat reat megl, то в числовом должно выйти так: 1231 4231 5267 Заранее спасибо всем за советы.

Проблема так же состоит в том что "слова" генерируются.

Решение задачи: «Строку перевести в число»

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

const
  formatstr = 'tearmglpb';
var
  mode, i: integer;
  s: string;
begin
  repeat
    writeln('-------------------------------------');
    writeln('| Выберите режим работы программы   |');
    writeln('| 1 > Шифратор                      |');
    writeln('| 2 > Дешифратор                    |');
    writeln('| 0 > Выход                         |');
    writeln('-------------------------------------');
    write('>> ');
    readln(mode);
    if mode = 1 then
    begin
      writeln('Введите числа для шифрования в одной строке: ');
      write('>> ');
      readln(s);
      for i := 1 to length(s) do
        if (s[i] >= '1') and (s[i] <= '9') then 
          write(formatstr[ord(s[i]) - 48])
        else if s[i] = ' ' then write(' ');
      writeln;
    end
    else if mode = 2 then
    begin
      writeln('Введите буквы для расшифровки в одной строке: ');
      write('>> ');
      readln(s);
      for i := 1 to length(s) do
        if (s[i] >= 'a') and (s[i] <= 'z') then 
          write(pos(s[i], formatstr))
        else if s[i] = ' ' then write(' ');
      writeln
    end
    else exit
  until false;
end.

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

В начале объявляются две переменные: mode и i, которые будут использоваться для обработки ввода пользователя. Переменная mode будет хранить выбранный режим работы программы, а переменная i - номер текущего символа в строке.
Затем идет цикл repeat, который будет повторяться до тех пор, пока пользователь не выберет выход (mode = 0).
Внутри цикла выводится меню с тремя вариантами: шифратор (mode = 1), дешифратор (mode = 2) и выход (mode = 0).
После выбора режима программа переходит к соответствующему блоку кода.
Если выбран режим 1 (шифратор), программа запрашивает у пользователя числа для шифрования в одной строке. Затем она преобразует каждое число в соответствующий символ и выводит результат.
Если выбран режим 2 (дешифратор), программа запрашивает у пользователя буквы для расшифровки в одной строке. Затем она преобразует каждую букву в соответствующий символ и выводит результат.
Если выбран режим 0 (выход), программа завершает работу.
В конце программы выводится сообщение об успешном завершении или об ошибке, если пользователь выбрал некорректный режим.