Задача "Счастливый билет" (Turbo Pascal) - трубуется помощь

[BzDoN]

Вот сама задача:

USES CRT;
VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;
BEGIN
ClrScr;
   WriteLn('Vvedite nomer bileta: ');
   ReadLn(n);
   m1:=n div 1000;
    n1:=m1 div 100;
    n2:=m1 mod 10;
    n3:=(m1-n1*100-n2) div 10;
   s1:=n1+n2+n3;
   m2:=n mod 1000;
    n4:=m2 div 100;
    n5:=m2 mod 10;
    n6:=(m2-n4*100-n5) div 10;
   s2:=n4+n5+n6;
   if s1=s2 then WriteLn('Bilet schaslivyi')
                 else WriteLn('Bilet ne schaslivyi');
ReadLn
END.

Здесь:
n - номер билета,
m1 и m2 - первые и последние 3 числа соответственно,
n1, n2, n3, n4, n5, n6 - 1е, 2е, 3е, 4е, 5е, 6е числа билета соответсвенно,
s1 и s2 - сумма первых и последних 3 чисел соответственно.

Помогите, пожалуйста, отредактировать эту программу, чтобы она подсчитала колличество счастливых билетов (вроде около 52 тысяч).
Алгоритм нахождения суммы чисел оставить таким же! Предел от 000000 до 999999 (т.е. чтобы работало только для 6-значных чисел).

P.S. Счастливый билет - сумма первых трёх чисел равно сумме трёх последних (в задаче s1=s2).

Спасибо за ранее!!!

[alex_fcsm]

var n,n1,n2,i:Longint;
begin
 readln(n);n1:=0;n2:=0;
 for i:=1 to 6 do
  begin
   if i<=3 then n1:=n1+n mod 10
       else n2:=n2+ n mod 10;
   n:=n div 10;
  end;
  if n1=n2 then writeln('Happiness ')
     else writeln('Usual');
end.

[BzDoN]

Спс...
А как вывести колличество счастливых билетов от 000000 до 999999??

[alex_fcsm]

var n,n1,n2,i,j,count:Longint;
    s:string;
begin
count:=0;
for j:=0 to 999999 do
begin
 n:=j;
 n1:=0;n2:=0;
 for i:=1 to 6 do
  begin
   if i<=3 then n1:=n1+n mod 10
       else n2:=n2+ n mod 10;
   n:=n div 10;
  end;
  if (n1=n2) then begin
                      Str(j,s);
                      for i:=1 to 6-length(s) do
                       s:='0'+s;
                      writeln('Happiness ',s);
                      count:=count+1;
                     end;
end;
writeln('Всего ', count);
end.

Но чисел будет очень много

[BzDoN]

Вот теперь то что надо Спасибо!!!
Ток.. эт самое.... прога печатает номера счастливых билетов. А как сделать чтобы после этого в конце ещё написал сколько их всего??

[alex_fcsm]

Смотри правку выше

[BzDoN]

Спс!!! Теперь всё работает!!!
Вот только я заметил, что когда программа по порядку отображает счастливые билеты, то есть не только 6-значные числа (например, 52700). Как я понял, Pascal перед числом "52700" опускает число "0".
А можно как нибудь этот "0" поставить?

[alex_fcsm]

Смотри правку

[BzDoN]

Я имел в виду не исключить эти не"6"значные числа, а просто при выводе их на экран ставить "0". (вот так: из 52700 в 052700; 30003 в 030003 и т.д.).

Не пишет эти нули... также и остаётся - без нулей

[alex_fcsm]

Смотри пост №4