\r
begin\r
writeln ('***PROGRAM *M*O*R*S*E* ---- PREVEDE TEXT DO MORSEOVY ABECEDY*** ');\r
-write ('ZADEJ TEXT PRO PRýEVOD: '); READLN (s);\r
+write ('ZADEJ TEXT PRO PREVOD: '); READLN (s);\r
\r
FOR i:= 1 TO LENGTH (s) DO\r
CASE s[i] OF\r
'A'..'Z','a'..'z': WRITE (Tab[Upcase (s[i])],'|');\r
' ' WRITE ('|');\r
END;\r
-end.
\ No newline at end of file
+end.\r