вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка?
var a,b,c,d,f,e,n:longint; k:real;begink:=0;for n:=000001 to 999999 do begin a:= n mod 10;b:= n div 10 mod 10;c:= n div 100 mod 10;d:= n div 1000 mod 10;f:= n div 10000 mod 10;e:= n div 100000 mod 10;if(a+b+c=d+f+e) then begin writeln(n);k:=k+1;end;end;end.
  покупатель должен заплатить в кассу S рублей . У него есть купюры в 1,2,5,10,50,100,500 руб. Найти наименьшее кол-во , которым он может рассчитаться? Помогите пожалуйста!

var    i1, i2, i3, i4, i5, i6: byte;    k: Longint;begin    for i1 := 0 to 9 do        for i2 := 0 to 9 do            for i3 := 0 to 9 do                for i4 := 0 to 9 do                    for i5 := 0 to 9 do                        for i6 := 0 to 9 do                            if i1 + i2 + i3 = i4 + i5 + i6 then begin                                Writeln(i1, i2, i3, i4, i5, i6);                                k := k + 1;                            end;    writeln(k);end.var    money: array[1..7]of integer;    count: array[1..7]of integer;    s, i: integer;begin    money[1] := 1;    money[2] := 2;    money[3] := 5;    money[4] := 10;    money[5] := 50;    money[6] := 100;    money[7] := 500;        write('s = ');    readln(s);        i := 7;    repeat        if s >= money[i] then begin            s := s - money[i];            count[i] := count[i] + 1;        end        else i := i - 1;    until s <= 0;        for i := 7 downto 1 do        if count[i] > 0 then            writeln(money[i], ' p. = ', count[i], ' шт.')end.