Различие цифр в числе, Проверить различны ли цифры в числе Опции

[vadim(b)]

30 минут искал поиском ниче не нашел. Прогу надо сделать любым способом(через строки или иным другим) мне мысли чето ни какой ни лезет, длина числа может быть различна. Кому не трудно накидайте хотябу саму основу кода :0

[мисс_граффити]

ну, если через строку, то можно и так:

var chislo,i: integer;
stroka: string;
povt: boolean;
begin
writeln('chislo');
readln(chislo);
str(chislo,stroka);
i:=1;
povt:=false;
while not(povt) and (i<length(stroka)) do
  begin
  povt:=boolean(pos(stroka[i],copy(stroka,i+1,length(stroka)-i)));
  inc(i);
  end;
writeln(povt);
readln;
end.