Количество единиц в 5-ти значном числе Опции

[zloy_pes]

Вообщем я чёто туплю - нужна программа, которая считает сколько в пятизначных числах от 10000 до chislo (вводится с клавеотуры) чисел, в которых хотябы две единички. Вот написал, но когда запускаю и ввожу число (например 10011) - программа повисает, спасает токо CTRL+PauseBreak
В чём я ошибся - подскажите плз.

program _11;
var n,i,k,a,c,chislo:integer;

begin

readln(chislo);

n:=0;

for i:=10000 to chislo do

begin
     for k:=1 to 4 do
     begin
          a:=i mod 10;
          if a=1 then n:=n+1;
          i:=i div 10;
     end;
     if n>=2 then c:=1;
end;

writeln(n);
readln;
end.

Заранее спасибо

[zloy_pes]

Спасибо, теперь понял!