请提供一段 人民币大小写转换的代码，pascal语言吧

以下是Pascal语言的人民币大小写转换代码：

program RMBConversion;

var
RMB: string; // 存储输入的人民币金额
Upper: string; // 存储转换后的人民币金额大写

const
CN_NUM: array[0..9] of string = ('零', '壹', '贰', '叁', '肆', '伍', '陆', '柒', '捌', '玖'); // 中文数字
CN_UNIT: array[0..5] of string = ('元', '拾', '佰', '仟', '万', '亿'); // 中文单位

// 将数字转换为中文数字
function ConvertNumberToCN(Number: char): string;
begin
ConvertNumberToCN := CN_NUM[Ord(Number) - Ord('0') + 1];
end;

// 将金额转换为中文大写
function ConvertRMBToCN(RMB: string): string;
var
i, j, Len: integer;
CurrentUnit: string;

begin
Len := Length(RMB);
j := Len + 1; // 从最高位开始转换
CurrentUnit := CN_UNIT[0];
for i := Len downto 1 do
begin
if (j > 6) and (j <= 8) and (RMB[i] = '0') and (RMB[i + 1] <> '0') then
Upper := '零' + Upper; // 处理“壹拾零”情况
if RMB[i] <> '0' then
Upper := ConvertNumberToCN(RMB[i]) + CurrentUnit + Upper
else if (j <= 6) and (Upper[1] <> '零') and (Upper[1] <> '元') then
Upper := '零' + Upper; // 处理“壹佰零几”情况
if j mod 4 = 1 then
CurrentUnit := CN_UNIT[j div 4];
j := j - 1;
end;
ConvertRMBToCN := Upper;
end;

begin
write('请输入人民币金额：');
readln(RMB);
Upper := ConvertRMBToCN(RMB);
writeln('人民币金额大写为：', Upper);
end.