Написать программу определения числа билетов с 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.

var

d1,d2,d3,d4: string;

begin

randomize;

readln(d1);

readln(d2);

readln(d3);

readln(d4);

case random(4) of

0: writeln(d1,d2,d3);

1: writeln(d1,d2,d4);

2: writeln(d2,d3,d4);

3: writeln(d1,d3,d4);

end;

end.