Повторения...

[Игрушка96]

Задача.Задано натуральное число Н.Определить наличие повторений между его цифрами.
Помогите разобраться не знаю даж с чего начать((

[BDA]

//n - натуральное число
//a - массив целых чисел (array [0..9] of integer)

while n<>0 do
begin
	inc(a[n mod 10]);
	n:=n div 10;
end;
for i:=0 to 9 do
 if a[i]>1 then
	writeln('Number ',i,' repeat ',a[i]);

[Игрушка96]

большое спасибо))

[Игрушка96]

Выводит кол-во повторов 2 вне зависимости от цифр в числе..

var
n,i:integer;
a:array[0..9] of integer;
begin
writeln;
readln(i);
while n<>0 do
begin
inc(a[n mod 10]);
n:=n div 10;
end;
for i:=0 to 9 do
if a[i]>1 then
writeln('repeat',a[i]:2);
readln;
end.

[BDA]

var
n,i:integer;
a:array [0..9] of integer;
begin
for i:=0 to 9 do
        a[i]:=0;
write('Input N: ');
readln(n);
n:=abs(n);
while n<>0 do
begin
	inc(a[n mod 10]);
	n:=n div 10;
end;
for i:=0 to 9 do
 if a[i]>1 then
	writeln('Number ',i,' repeat ',a[i],' times');
readln;
end.