Одномерные массивы.

[P@niSheR]

Задача на одномерные массивы.
Условие: В массиве целых чисел найти все числа, в десятичной записи которых нет повторяющихся цифр.

Эти цифры просто нужно вывести на экран.

[hinst]

var s:string; i,j,r:integer; c:char;
for i:=0 to length(a)-1 do
begin
  s:=IntToStr(a);
  for c:='0' to '9' do
  begin
    r:=0;
    for j:=1 to length(s) do if s[i]=c then inc(r);
    if r>1 then continue;
  end;
  WriteLN(s);
end.