procedure stoupper(var st: string);