procedure stolower(var st: string);