нахождение повторяющихся цифр в числе

[world12_tk]

Здраствуйте уважаемые программисты....
Возник такой вопрос!
Дается число, нужно сказать есть ли повторющиеся цифры в числе или нет..
Проблема в том что нельзя использовать матрицы и строковые типы...
Очень нужна ваша помощь....
Заранее спасибо

[Z1000000]

Program RepeatDigit;
var
 S, D, i : Integer;
 Digits : array[0..9] of Integer;
begin
Read(S);
for i := 0 to 9 do Digits[i] := 0;
while ( S <> 0 ) do
 begin
 D := S mod 10;
 if Digits[D] > 0 then
  begin
  writeln('Есть');Exit;
  end
 else
  inc( Digits[D]);
 S := S div 10;
 end;
writeln ('Нет');
end.

[world12_tk]

Z1000000 массив использовать нельзя.....

[andrewpalkin]

Program RepeatDigit;
var
 S, D, i,tempNum, num : Integer;
 Digits : array[0..9] of Integer;
begin
  Read(S);
  
  while ( S <> 0 ) do
   begin
     D := S mod 10;
     tempNum :=  S div 10;
    while ( tempNum <> 0 ) do
      begin
      num := tempNum mod 10;
      if(d = num) then
        begin 
          writeln('Есть');
          Exit;
        end;
      tempNum :=  tempNum div 10;
      end;    
     S := S div 10;
   end;
  writeln ('Нет');
end.