关于pascal中高精度字符串型数的比较

有人说：

　　字符串形式的高精度数可直接用'<' '>'等比较

但是

如果运行　'1048333'>'22' 的话，会得到‘False'!!!!!!!!

只要两数位数不同，就总会出错！

所以

还是不要偷懒为好！！！自己编比较大小的程序～～～～

我自编了一个

function maxnum(a,b:string):string;
  var i:integer;
  begin
    maxnum:=a;
    if length(a)<length(b) then maxnum:=b;
    if length(a)=length(b) then
      for i:=length(a) downto 1 do
        if a[i]<>b[i] then if a[i]>b[i] then exit(a)
                                        else if a[i]<b[i] then exit(b);
  end;