Программа телеграф.

Uses Crt;
Var morze:array[1..32] of string[32]:=('.-','-...','.---','---','-..','.','...-','--..','..','.---','-.-','.-..','--','-.','---','.--.','.-.','...','-','..-','..-.','....','-.-.','---.','--.-','----','-..-','-.--','-..-','..-.','..--','.-.-'); 
bykv:array[1..32] of char:=('А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Щ','Ш','Ъ','Ы','Ь','Э','Ю','Я');
tekst:string; k,i,j:integer;
begin clrScr;
readln(tekst);
 for i:=0 to length(tekst) do begin
  for j:=0 to 31 do begin
   if (ORD(tekst[i]))=(ORD(bykv[j])) then 
repeat Writeln(morze[j]:3);
  if (morze[j]= '-' ) or (morze[j]= '.' ) then begin  Sound(440);
    case morze[j] of
         '.': Delay (50);
         '-': Delay (100);
     end;
     Nosound; end;
until (morze[j]=' ' );
   Delay (100); 
end; end; end.

Type
    TMorze = record
     Alpha: Char;
     Code: String;
    End;
 
Const
    Morze: Array[1..32] of TMorze =((Alpha:'А';Code:'.-'),(Alpha:'Б';Code:'-...'),(Alpha:'В';Code:'.---'),
                                  (Alpha:'Г';Code:'---'),(Alpha:'Д';Code:'-..'),(Alpha:'Е';Code:'.'),
                                  (Alpha:'Ж';Code:'...-'),(Alpha:'З';Code:'--..'),(Alpha:'И';Code:'..'),
                                  (Alpha:'Й';Code:'.---'),(Alpha:'К';Code:'-.-'),(Alpha:'Л';Code:'.-..'),
                                  (Alpha:'М';Code:'--'),(Alpha:'Н';Code:'-.'),(Alpha:'О';Code:'---'),
                                  (Alpha:'П';Code:'.--.'),(Alpha:'Р';Code:'.-.'),(Alpha:'С';Code:'...'),
                                  (Alpha:'Т';Code:'-'),(Alpha:'У';Code:'..-'),(Alpha:'Ф';Code:'..-.'),
                                  (Alpha:'Х';Code:'....'),(Alpha:'Ц';Code:'-.-.'),(Alpha:'Ч';Code:'---.'),
                                  (Alpha:'Ш';Code:'--.-'),(Alpha:'Щ';Code:'----'),(Alpha:'Ъ';Code:'-..-'),
                                  (Alpha:'Ы';Code:'-.--'),(Alpha:'Ь';Code:'-..-'),(Alpha:'Э';Code:'..-.'),
                                  (Alpha:'Ю';Code:'..--'),(Alpha:'Я';Code:'.-.-'));
 
Var
 T: String;
 i,j,k: Integer;
begin
 ReadLn(T);
 for i := 1 to Length(T)
 do if T[i] = ' '
    then begin
         NoSound;
         Delay(100);
         WriteLn;
         end
    else for j := 1 to 32
         do if T[i] = Morze[j].Alpha
            then begin
                 Writeln(Morze[j].Code);
                 for k := 1 to Length(Morze[j].Code)
                 do begin
                    Sound(440);
                    case Morze[j].Code[k]
                    of '.': Delay(50);
                       '-': Delay(100);
                    end;
                    NoSound;
                    end;
                 Break;
                 end;
end.