Поиск различных цифр (2 уровень)

Условие:
Дано натуральное число N. Сколько различных чисел встречается в его десятичной записи?

Решение:
var
n:longint;i,c:integer;s:string;A:array [1..10] of boolean;
begin
write('Введите N: ');
readln(n);
str(n,s);
for i:=1 to length(s) do begin val(s[i],n,c);A[n]:=true;end;
n:=0;
for i:=1 to 10 do if A[i] then inc(n);
write('В этом числе содержиться ',n,' различных цифр!');
readln;
end.