Есть готовая программа телеграф в паскале abc, которая переводит из букв в код морзе. сделать так,чтобы она переводила из введенного кода в буквы program telegraf2014; uses crt; label m; var a: array['а'..'я'] of string; i,j: integer; t: string; begina['а']: ='.-'; a['б']: =''; a['в']: =''; a['г']: =''; a['д']: =''; a['е']: ='.'; a['ж']: =''; a['з']: =''; a['и']: ='..'; a['й']: =''; a['к']: =''; a['л']: =''; a['м']: ='--'; a['н']: ='-.'; a['о']: =''; a['п']: =''; a['р']: =''; a['с']: =''; a['т']: ='-'; a['у']: =''; a['ф']: =''; a['х']: =''; a['ц']: =''; a['ч']: =''; a['ш']: =''; a['щ']: =''; a['ъ']: =''; a['ы']: =''; a['ь']: =''; a['э']: =''; a['ю']: =''; a['я']: =''; m: clrscr; gotoxy(30,1); writeln('это программа телеграф'); gotoxy (18,2); writeln('введите слово строчными буквами на языке! '); readln(t); beginfor i: =1 to length(t) dobeginif t[i]< > ' 'thenbeginwrite (a[t[i]],' '); end; end; readln; end; goto m; end.

{
Если мы попробуем кодировать точку нулем, тире - единицей, то получаем число
в двоичной системе с максимальным числом разрядов, равным 4. К сожалению,
в такой кодировке комбинации, начинающиеся с точки, будут неоднозначными,
потому что будут начинаться с незначащих нулей. Для устранения неоднозначности можно добавить еще три бита слева, которые будут указывать количество точек в коде до первого тире (0-4), но лучше добавить 4 бита и использовать для кодирования полный байт. Тогда его первая шестнадцатиричная цифра даст число незначащих нулей (точек), а вторая - сам код. Исключение - символ 'э', который кодируется 5 символами.
Для разделения слов введем еще символ пробела -...-

а .-     0001 0001 &11 = 17
б -...   0000 1000 &08 =  8
в .--    0001 0011 &13 = 19
г --.    0000 0110 &06 =  6
д -..    0000 0100 &04 =  4
е .      0001 0000 &10 = 16
ж ...-   0011 0001 &31 = 49
з --..   0000 1100 &0C = 12
и ..     0010 0000 &20 = 32
й .---   0001 0111 &17 = 23
к -.-    0000 0101 &05 =  5
л .-..   0001 0100 &14 = 20
м --     0000 0011 &03 =  3
н -.     0000 0010 &02 =  2
о ---    0000 0111 &07 =  7
п .--.   0001 0110 &16 = 22
р .-.    0001 0010 &12 = 18
с ...    0011 0000 &30 = 48
т -      0000 0001 &01 =  1
у ..-    0010 0001 &21 = 33
ф ..-.   0010 0010 &22 = 34
х    0100 0000 &40 = 64
ц -.-.   0000 1010 &0A = 10
ч ---.   0000 1110 &0E = 14
ш    0000 1111 &0F = 15
щ --.-   0000 1101 &0D = 13
ъ -..-   0000 1001 &09 =  9
ы -.--   0000 1011 &0B = 11
ь -..-   0000 1001 &09 =  9
э ..-..  0011 0100 &34 = 52
ю ..--   0010 0011 &23 = 35
я .-.-   0001 0101 &15 = 21

Конечно, можно было бы просто поместить коды в элементы массива и поиск
нужного производить поэлементым сравнением, но принятая нами кодировка позволит получать номер элемента массива сразу. Иными словами, мы построили так называемую ХЭШ-ФУНКЦИЮ для доступа к таблице перекодировки. Это очень популярное решение, которое применяется достаточно часто в различных алгоритмах кодировки и поиска.
Максимальный номер среди полученных нами = 64, минимальный - 1. Следовательно, нужно создать массив T[1..64] и поместить русские буквы в элементы с соответствующими индексами (а - в 17-й элемент, б - в 8-й и т.д.)
Получив очередное слово - "символ" азбуки Морзе, например, '..-.', выполняем
следующие шаги:
1) Если пять правых символов слова равны '..-..', искомый символ T[52];
2) Если пять правых символов слова равны '-...-', искомый символ T[63];
3) Подсчитываем k - количество точек в четырех правых символах слова
a5a6a7a8, пока не встретим тире. Вычисляем значение k:=16*k;
4) Начиная с первого слева тире заменяем в символах слова точки нулями,
тире - единицами;
5) Вычисляем сумму n=a5*8+a6*4+a7*2+a8 и увеличиваем на нее значение k.
k:=k+n
6) Искомый символ равен T[k]
Алгоритм кажется сложным, но его реализация в функции Hash проста.
}

var
  ptr: integer;

function Hash(s: string): integer;
{Возвращает номер элемента в таблице Т по коду Морзе из строки s}
var
  i, k, n, m: integer;
begin
  if s = '' then Result := 0
  else if s = '..-..' then Result := 52
  else if s = '-...-' then Result := 63
  else begin
    i := 1;
    k := 0;
    while i <= length(s) do
      if s[i] = '.' then
      begin
        i := i + 1;
        k := k + 1
      end
      else i := 5;
    n := 0;
    m := 1;
    for i := length(s) downto max(k, 1) do
    begin
      if s[i] = '-' then n := n + m;
      m := m * 2
    end;
    Result := 16 * k + n
  end
end;

function GetWord(s: string): string;
{Возвращает очередное слово строки s, начиная поиск с позиции ptr
По окончании поиска ptr устанавливается на следующий за пробелом символ или
выходит за конец строки}
var
  i: integer;
  c: string;
begin
  c := '';
  i := PosEx(' ', s, ptr);
  if i > 0 then
  begin
    Result := Copy(s, ptr, i - ptr);
    ptr := i + 1
  end
  else
  begin
    Result := Copy(s, ptr, length(s) - ptr + 1);
    ptr := length(s) + 1
  end;
end;

var
  s: string;
  n: integer;
  T: array[1..64] of char;

begin
  T[17] := 'а'; T[8] := 'б'; T[19] := 'в'; T[6] := 'г'; T[4] := 'д';
  T[16] := 'е'; T[49] := 'ж'; T[12] := 'з'; T[32] := 'и'; T[23] := 'й';
  T[5] := 'к'; T[20] := 'л'; T[3] := 'м'; T[2] := 'н'; T[7] := 'о';
  T[22] := 'п'; T[18] := 'р'; T[48] := 'с'; T[1] := 'т'; T[33] := 'у';
  T[34] := 'ф'; T[64] := 'х'; T[10] := 'ц'; T[14] := 'ч'; T[15] := 'ш';
  T[13] := 'щ'; T[11] := 'ы'; T[9] := 'ь'; T[52] := 'э'; T[35] := 'ю';
  T[21] := 'я'; T[63] := ' ';
  { для отладки
  s := '--.. -.. .-. .- .-- ... - .-- ..- .--- -...- -- .. .-.';}
  writeln('Введите строку в коде Морзе, пробел кодируется -...-');
  readln(s);
  ptr := 1;
  n := 100;
  write('Раскодировка: ');
  while n > 0 do
  begin
    n := Hash(GetWord(s));
    if n > 0 then write(T[n]);
  end;

Тестовое решение:

Введите строку в коде Морзе, пробел кодируется -...-
--.. -.. .-. .- .-- ... - .-- ..- .--- -...- -- .. .-.
Раскодировка: здравствуй мир
  writeln
end.

Program telegraf2014;
uses crt;
label m;
var
  a: array[1..32] of string;
  i, j: integer;
  t,s: string;
begin   
a[1] := '.-';a[2] := '-...';a[3] := '.---';a[4] := '--.';a[5] := '-..';a[6] := '.';a[7] := '...-';a[8] := '--..';a[9] := '..';a[10] := '.---';a[11] := '-.-';a[12] := '.-..';a[13] := '--';a[14] := '-.';a[15] := '---';a[16] := '.--.';a[17] := '.-.';a[18] := '...';a[19] := '-';a[20] := '..-';a[21] := '..-.';a[22] := '';a[23] := '-.-.';a[24] := '---.';a[25] := '';a[26] := '--.-';a[27] := '-..-';a[28] := '-.--';a[29] := '-..-';a[30] := '..-..';a[31] := '..--';a[32] := '.-.-';   
m: ClrScr;     
GotoXY(30, 1);     
writeln('Это программа телеграф');     
GotoXY(18, 2);     
writeln('Введите телеграфный код');     
readln(t);     
repeat
        j:=pos(' ',t);
        if j>0 then s:=copy(t,1,j-1)
          else
            begin
            s:=t;
            t:='';
            end;
        delete(t,1,j);
        for i:=1 to 32 do
          if a[i]=s then write(chr(i+223));
        until t='';     
readln;      
goto m;
end.