先设一个字符串S:string; 然后 while n>0 do begin k:=k mod 16; n:=n div 16; if k<10 then s:=s+chr(k+ord('0')) else s:=s+chr(k+ord('A')-1); end;
额 用数组 读出时与12比较 小就加amelse pm
