Одномерные массивы поиск чисел(Pascal)

[Rikoshet]

Вот задачка. В массиве целых чисел найти все числа, в десятичной записи которых нет повторяющихся цифр.
Вот мое решение, но где-то не вяжется, подскажите где?(Я не сильно понимаю в паскале, возможно ошибки будут примитивные)

program massive;

uses
  crt;

const
  n = 20;

var
  m, b: array[1..n] of integer;
  i, j, a, k, c, e, d, t: integer;

begin
  clrscr;
  randomize;
  writeln('ishodniy massive:');
  for i := 1 to n do
  begin
    m[i] := random(100);
    write(m[i], ' ');
  end;
  writeln;
  writeln('ubiraem s odinakovimi ciframi...');
  writeln('stalo:');
  for i := 1 to n do
  begin
    j := 0;a := m[i];
    repeat
      d := a mod 10;
      inc(j);b[j] := d;
      a := a div 10;
    until a = 0;
  end;
  t := 0;
  for e := 1 to j do 
  begin
    k := b[e];
    for c := e to j do
      if k = b[c] then t := t + 1
  end;
  if t = 0 then 
    write(m[i], ' ');
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

две ошибки проверку надо выполнять в том же цикле, где вы разбираете число на отдельные цифры.
и вторая - вложенный цикл поиска цифры нужно начинать со следующего индекса (иначе вы само число с самим собой же сравниваете, разумеется, число b[e] = b[e])

  for i := 1 to n do
  begin
    j := 0;a := m[i];
    repeat
      d := a mod 10;
      inc(j);b[j] := d;
      a := a div 10;
    until a = 0;

    t := 0;
    for e := 1 to j do
    begin
      k := b[e];
      for c := e+1 to j do
        if k = b[c] then t := t + 1
    end;
    if t = 0 then
      write(m[i], ' ');

  end;

p.s. да и переменная d избыточна - сразу в массив b сохраняйте очередную цифру:

   repeat
      inc(j);
      b[j] := a mod 10;
      a := a div 10;
    until a = 0;

[Rikoshet]

Огромное спасибо!