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

program gt;var a:array[1..10]of integer;p,n,i:integer;beginreadln(n);p:=0;while n>0 dobegininc(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.