Случайным образом задано 1000<n<=9999. Выяснить, различны ли все цифры этого числа. Pascal ABC

vara:array[1..100]of integer;n,i,c,k,j,x:integer;beginreadln(n);c:=n;while n<>0 do beginn:=n div 10;k:=k+1;end;for i:=1 to k do begina[i]:=c mod 10;c:=c div 10;end;for i:=1 to k dowrite(a[i],' ');j:=2;for i:=1 to k do beginwhile j<>k do beginif (a[i]=a[j]) and (i<>j) thenx:=x+1;j:=j+1;end;j:=2;end;writeln;write(x,'  повторов');writeln;if x=0 then writeln('все числа различны')else writeln('числа в числе повторяются')end.