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

s := []; while N > 0 do begin s := s + [N mod 10]; N := N div 10; end;
k := 0; for i := 0 to 9 do if i in s then Inc(k);
WriteLn(K);