uses u_shortstring1; begin end.