Вот как делается на Делфи. Вдруг будет полезно
uses
System.SysUtils, System.Generics.Collections, Winapi.Windows;
begin
SetConsoleCP(CP_UTF8);
SetConsoleOutputCP(CP_UTF8);
var Map := TDictionary<string, Char>.Create;
Map.Add('', ' ');
Map.Add('•−', 'А');
Map.Add('−•••', 'Б');
Map.Add('•', 'Е');
Map.Add('−−••', 'З');
Map.Add('−•−', 'К');
Map.Add('−−', 'М');
Map.Add('−−−', 'О');
Map.Add('•−•', 'Р');
Map.Add('••−', 'У');
var a := '•− −−•• −••• ••− −•− •− −− −−− •−• −−•• •'.Replace(' ', ' ').Split([' ']);
var c: Char;
for var s in a do
if Map.TryGetValue(s, c) then Write(c) else Write('?');
Map.Free;
readln;
end.
