Для введенного числа N.(1<=N<106). Определить количество натуральных чисел из интервала от 1 до N(включительно таких, что цифры в них в их десятичной записи не убывают - Pascal(Паскаль)

uses crt;
var
n,j:word;
b1,b2,b3:word;
c:char;
label lb;
begin
textbackground(5);
lb:clrscr;
textcolor(14);
j:=0;
{$I-}
repeat
write('‚ўҐ¤ЁвҐ N: ');
readln(n);
if IOresult<>0 then writeln('‚ўҐ¤Ґ­® ­ҐўҐа­®Ґ §­ 祭ЁҐ!') else
if (1>n)or(n>=1000) then writeln('‚ўҐ¤Ґ­® ­ҐўҐа­®Ґ §­ 祭ЁҐ!');
until (1<=n)and(n<1000);
{$I+}
for b1:=0 to 9 do
 for b2:=0 to 9 do
  for b3:=1 to 9 do
   begin
    if (b3+b2*10+b1*100)>n then break;
    if (b2<=b3)and(b1<=b2) then
    begin
     write(b1,b2,b3,'  ');
     j:=j+1;
     end;
   end;
writeln;
writeln('Љ®«ЁзҐбвў® зЁбҐ« а ў­® : ',j);
write('Џ®ўв®аЁвм? (Y-¤ , Ё­ зҐ-«оЎ п ¤агЈ п Є« ўЁи )');
c:=readkey;
if (c='y')or(c='Y') then goto lb
else
end.