procedure capstr(var s: string);