Даны 2 числа. Вывести их цифры

[KirillP123]

Задача на связь Паскаля с Ассемблером. Даны 2 натуральных числа, вывести цифры,входящие в них(без повторений). Т.е. вводим 123 и 135 и должно вывести 1 2 3 5. Попытался реализовать это с помощью массива, заполняемого цифрами, которые еще не встречались. Получилось что-то вроде этого, но турбо паскаль выдает 26 ошибку(я так понял что-то не так с массивом или переприсвоением), возможно есть и другие ошибки. Подскажите пожалуйста что нужно исправить в коде.

label l,m,m1,j;
var
a,b,i,n,d:integer;
f:boolean;
c:array[1..100] of integer;
begin
readln (a);
readln (b);
n:= 0;
f:=0;
d:=10;

asm
lea bx,c
mov ax,a
mov di,0
l: inc n
mov bx,di
mov dx,0
div d
j: cmp [bx],di
je m

cmp dx,[bx]
jne m1
mov f,0
m1:add bx,2
jmp j
m: cmp f,0
je l
mov [bx],dx
cmp ax,0
jne l
end;
{Для второго числа тоже самое}

for i:=n downto 1 do write (c[i]);
readln;
end.

[Smitt&Wesson]

Шо? Вот это поворот судьбы!
Переводим в string и вставляем пробелы.

[KirillP123]

Что переводить в string? Оба числа? Но одинаковые цифры то останутся

[R71MT]

KirillP123, во-первых вставки оформляются в виде:

_asm {
....    
}

..во-вторых, выводи первое число "как-оно-есть", а потом ищи символ/число при помощи "scasb"...