Есть готовая программа Телеграф в Паскале ABC, которая переводит из букв в код Морзе. Помогите сделать так,чтобы она переводила из введенного кода в

+ 0 -

Feryi126

19 нояб. 2015 г., 6:22:53 (8 лет назад)

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.