Проблема с программой для перевода азбуки Морзе в Английский текст

[macomics]

Сообщение от digitalis

Аль глаза меня подводят?

Сообщение от macomics

Идея была такая, но напутал с индексами.

Сообщение от digitalis

Любопытно, что я за свою многотрудную жисть я Low и High не использовал.

Когда часто переключаешься с языков, в которых строки индексируются с 0, на языки где они же начинаются с 1, тогда начинаешь бороться с ленью и использовать Low и High, чтобы не путать.
Но лень иногда побеждает, тогда пишешь индекс числом и ошибаешься!

const
  alphabet: array [0 .. 44] of Char = ('(', '.', '?', ',', '-', ')', ';', '!', ':', '5', '4', '3', '2', '1', '6', '7', '8', '9', '0', 'h', 'v', 'f', 'l', 'p', 'j', 'b', 'x', 'c', 'y', 'z', 'q', 's', 'u', 'r', 'w', 'd', 'k', 'g', 'o', 'i', 'a', 'n', 'm', 'e', 't');
  morzebet: array [0 .. 44] of String = ('.-.--.-', '......', '..--..', '.-.-.-', '-....-', '-.--.-', '-.-.-.', '--..--', '---...', '.....', '....-', '...--', '..---', '.----', '-....', '--...', '---..', '----.', '-----', '....', '...-', '..-.', '.-..', '.--.', '.---', '-...', '-..-', '-.-.', '-.--', '--..', '--.-', '...', '..-', '.-.', '.--', '-..', '-.-', '--.', '---', '..', '.-', '-.', '--', '.', '-');

implemenration

function alpha2morze(alpha: String): String;
var
  i, j: Integer;
  r: String;
begin
  r := '';
  for i := Low(alpha) to High(alpha) do
    for j := Low(alphabet) to High(alphabet) do
      if alpha[i] = alphabet[j] then begin
        r := r + morzebet[j] + ' ';
        break;
      end;
  alpha2morze := r;
end;

function morze2alpha(morze: String): String;
var
  i, j, l, n: Integer;
  m, r: String;
begin
  m := morze;
  r := '';
  j := Low(m);
  n := High(m);
  while j <= n do
// По хорошему даже Pos не стоит использовать. Иначе будет слишком много лишних сравнений
    for i := Low(morzebet) to High(morzebet) do
// Достаточно проверить совпадение начала строки с подстрокой из словаря
      l := j + High(morzebet[i]) - Low(morzebet[i]);
      while (j <= l) and (m[j] = morzebet[i][j]) do inc(j);
      if j > l then begin
        while (j <= n) and (m[j] = ' ') do inc(j);
        r := r + alphabet[i];
        break;
      end;
  morze2alpha := r;
end;

[digitalis]

------