4 tab: array ['A'..'Z'] of string[6] = (
5 '._','_...','_._.','_..','.','.._.','__.','....','____','..',
6 '.___','_._','._..','__','_.','___','.__.','._.','...','_','.._',
13 writeln ('***PROGRAM *M*O*R*S*E* ---- PREVEDE TEXT DO MORSEOVY ABECEDY*** ');
14 write ('ZADEJ TEXT PRO PREVOD: '); READLN (s);
16 FOR i:= 1 TO LENGTH (s) DO
18 'A'..'Z','a'..'z': WRITE (Tab[Upcase (s[i])],'|');