Вводится натуральное число n (n< 10000) выяснить, верно ли, что в его записи все цифры различны?

Program gt;
var a:array[1..10]of integer;
p,n,i:integer;
begin
readln(n);
p:=0;
while n>0 do
begin
inc(a[n mod 10]);
n:=n div 10;
if(a[n mod 10]>1)then p:=1;
end;
if(p=1)then writeln('NO') else writeln('YES');
end.