Задача с использованием цикла for (Pascal)

[Whitecoat]

"Вывести на экран все четырехзначные числа, сумма цифр которых равна 10, а также их количество и сумму"

Помогите найти ошибку в решении и исправить:

program cicldl912;

 
{$APPTYPE CONSOLE}

uses
  SysUtils;


var
      a,b,c,s,d,k,n:integer;
begin
       { TODO -oUser -cConsole Main : Insert code here }
  s:=0;
  n:=0;
  for k := 1000 to  9999 do
                        begin
                          a:=k div 1000;
                          b:=(k mod 1000)div 10;
                          c:=(k mod 100)div 100;     
                          d:=(k mod 10);
                          if a+b+c+d=10 then
                                      begin
                                        n:=n+1;
                                        s:=s+k      ;
                                        writeln(k);
                                      end;
                           end;
                        writeln('kolichestvo',k);
                        writeln('summa ravna',s);
                        readln;
end.

[BDA]

a:=k div 1000;
b:=(k mod 1000) div 100;
c:=(k mod 100) div 10; 
d:=k mod 10;

[studen]

i:=0;
s:=0;
for a:=1 to 9 do
  for b:=0 to 9 do
    for c:=0 to 9 do
      for d:=0 to 9 do
        if a+b+c+d = 10 then
        begin
          writeln(a*1000 + b*100 + c*10 + d);
          i:=i+1;
          s:=s+a*1000 + b*100 + c*10 + d;
        end;
writeln i;
writeln s;

Это классический вариант, который хотят увидеть многие преподаватели, особенно, если задача на вложенные циклы.

[veniside]

studen, тогда уже

for a:=1 to 9 do
  for b:=0 to 10 - a do
    for c:=0 to 10 - a - b do
      d:= 10 - a - b - c;

че зря перебирать заведомо неподходящее )