Написать программу определения числа билетов с 6-значными номерами, у которых сумма первых 3 десятичных цифр равна сумме 3 последних десятичных цифр (паскаль)

Program bb; uses crt; var s,a,b,v,z,i: longint; begin s: =1; {учитываем билет с номером 000000} for i: =1 to 999999 do {перебираем билеты от 000001 до 999999} begin     v: =i;     z: =0;     while z< 3 do   begin z: =z+1; a: =v mod 10 +a; v: =v div 10 end; {считаем сумму последних трех чисел}     while z< 6 do   begin z: =z+1; b: =v mod 10 +b; v: =v div 10 end; {считаем сумму первых трех чисел}     if a=b then s: =s+1;     a: =0;     b: =0; end; writeln(s); readkey; end.