Mi a baj ezzel a free pascal kóddal?

azt szeretném ha a programom 0-tól 2000-ig összeadná a számjegyek-ek. ( pl 0-tól 11-ig 14 db számjegyet írtam le)

program kettoezer;

uses crt;

var a,b:integer;

begin

clrscr;

a:=0;

b:=0;

repeat

if a<10 then begin

b:=b+1;

end;

if (a>10) and (a<100) then begin

b:=b+2;

end;

if (a>100) and (a<1000) then begin

b:=b+3;

end;

if (a>1000) and (a<10000) then begin

b:=b+4;

end;

a:=a+1;

until a:=2000;

writeln(b);

end.