program Morse;
const
Tab: array['A'..'Z'] of string[6] = (
'._','_...','_._.','_..','.','.._.','__.','....',
'..','.___','_._','._..','__','._','___','.__.','xxx',
'._.','...','_','.._','..._','xxx','xxx','__._','__..');
var
s : string;
i : byte;

begin
writeln('Morse -- prevede text do Morseovy abecedy.');
write('Zadej retezec: '); readln(s);
for i:= 1 to length(s) do
case s[i] of
'A'..'Z','a'..'z': write(Tab[Upcase(s[i])],'|');
' ': write('|');
end;
end.

Maturita.cz - referát (verze pro snadný tisk)
http://www.maturita.cz/referaty/referat.asp?id=1290