Вывод счастливых шестизначных чисел

program Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b,i,k:Integer;
begin
  k:=0;
 for i:=1 to 999999 do
  begin
    a:=0;b:=0;
    a:=(a+((i div 100000)));
    a:=(a+((i div 10000) mod 10));
    a:=(a+((i div 1000) mod 10));
    b:=(b+((i div 100) mod 10));
    b:=(b+((i div 10) mod 10));
    b:=(b+((i mod 10)));
    if (a=b) then begin Writeln(i);Inc(k);end;
  end;
 Writeln('Count = ',k);
  Readln;
end.

var i: longint; lp, rp, sumlp, sumrp: integer;
 begin
  for i:= 100000 to 999999 do begin
    lp:=i div 1000;
    rp:=i mod 1000;
    while lp>0 do
     begin
      sumlp:=sumlp+(lp mod 10);
      lp:=(lp div 10);
     end;
    while rp>0 do
     begin
      sumrp:=sumrp+(rp mod 10);
      rp:=(rp div 10);
     end;
    if sumlp=sumrp then write(i,' '); //можешь дописать там "ln", если в столбик удобнее
    sumlp:=0;
    sumrp:=0;
   end;
  writeln;
  readln;
 end.

Var
  S : String;
 
Procedure IncS(Var St : String);  
Var
  c,Fl : Byte;
Begin {48 - 57}
  Fl:=1;
  For c:=Length(St) downto 1 do
  Begin
    St[c]:=Chr(Ord(St[c])+Fl);
    Fl:=0;
    If Ord(St[c])>57 then
    Begin
      St[c]:='0';
      Fl:=1;
    End;
  End;
  If Fl<>0 then St:='1'+St;
End;
 
Begin
  S:='100000';
  While Length(S)<=6 do
  Begin
    If Ord(S[1])+Ord(S[2])+Ord(S[3]) = Ord(S[4])+Ord(S[5])+Ord(S[6]) then Writeln(S);
    IncS(S);
  End;
End.