Поиск чисел, состоящих из одинаковых цифр

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  bin,bout:text;
  a,n0,i,k,m,c:integer;
  b:array[0..10000] of integer;
  S:array[0..10000] of string;
 
begin
assign(bin,'digits.in');reset(bin);
assign(bout, 'digits.out');rewrite(bout);
readln(bin, a);
For i:=1 to a-2 do
  begin
    b[0]:=1;
    b[i]:=b[i-1]+1;
  end;
 
For i:=0 to a-2 do
   Str(b[i], S[i]);
 
 
For i:=0 to a-2 do
   for k:=0 to (length(s[i])-2) do
       begin
         for m:=k+1 to (length(s[i])-1) do
           begin
             if s[i][k]=s[i][m] then begin inc(n0);break;end;
           end;
       end;
      c:=(a-1)-n0;
writeln(bout, c);
close(bin);close(bout);
end.

 
var N:integer;
i,kr:integer;
function RazCif(a:longint):boolean; {функция определяет разные цифры или нет}
var k,p,t:integer;b:set of 0..9;
begin
b:=[];t:=0;p:=0;
while a>0 do
    begin
      k:=a mod 10; {отделяем очередную цифру с конца}
      t:=t+1; {считаем ее}
      if not (k in b)then {если такой цифры нет во множестве, добавляем}
          begin
             include(b,k);
             p:=p+1; {считаем, сколько добавили}
          end;
       a:=a div 10; {пишем число без последней цифры и снова все повторяем, пока число не кончится}
    end;
if t<>p then RazCif:=false {если число цифр общее совпадает с количеством цифр во мнлжестве, значит все цифры разные}
else RazCif:=true;
end;
begin
clrscr;
kr:=0;
write('N=');readln(N);
for i:=1 to N-1 do
if RazCif(i)then kr:=kr+1;
write('Kol chis s rszn chifr=',kr);
readln
end.