为什么?天为什么这么对我!!!

为什么只有2分?

var a,b,c,s,ln,ll:int64;

zst,st:ansistring;

begin

readln(a,b);

c:=a-b;

str(c,st);

ln:=length(st);ll:=ln;

repeat

inc(s);

zst:=st[ln]+zst;

if st='-' then continue;

if s mod 3=0 then zst:=','+zst;

dec(ln);

until s=ll;

if zst[1]=',' then delete(zst,1,1);

if st[1]'-' then writeln(zst)

else writeln('-',zst);

end.