сосчитайте, сколько шестизначных чисел имеют одинаковые суммы трех первых и трех последних цифр (ПАСКАЛЬ)

Вот задача. Только её результат не сходится с результатом по ссылке выше. (

var
sum1,sum2,counter,i:integer;
begin
sum1 := 0;
sum2 := 0;
counter := 0;
for i := 100000 to 1000000-1 do begin
sum1 := sum1 +(i mod 10);
sum1 := sum1 + (i div 10)mod 10;
sum1 := sum1 + (i div 100)mod 10;
sum2 := sum2 + (i div 1000)mod 10;
sum2 := sum2 + (i div 10000)mod 10;
sum2 := sum2 + (i div 100000)mod 10;

if(sum1 = sum2) then begin inc(counter);sum1 := 0; sum2 := 0;end
else begin sum1 := 0; sum2 := 0; end;
end;

writeln(counter);
end.