\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
\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