дано натуральное число n(n<или=9999)учитивая всё читире цифры числа,узнать,есть ли правельным что оно имеет все разние цыфры.(паскаль)

function check(n:word):boolean; var i,j:word;a:array[0..3]of byte; begin check:=true; for i:=0to 3do begin a[ i]:=n mod 10;n:=n div 10;end; for i:=0to 2do for j:=i+1to 3do if a[ i]=a[j]then check:=false; end;