Помогите найти ошибку в несложной программе

[Архат]

Среди заданных натуральных чисел найти такие, десятичная запись которых не содержит одинаковых цифр
Заранее благодарен!!!

uses crt;
var  a:array[1..1000]of integer;
     b:array[1..100]of integer;
     n,k,i,j,j2,j3,k1,k2,k3,k4:integer;
     
begin clrscr;
writeln('Введите количество чисел');
readln(n);
writeln('Введите числа');
for i:=1 to n do
readln(a[i]);
writeln('Вы ввели');
for i:=1 to n do
write(a[i],' ');


for i:=1 to n do
begin
     k:=a[i];
     k1:=0;
     k3:=0;
     k4:=0;
while k<>0 do
begin
k2:=k mod 10;
k:=k div 10;
k1:=k1+1;
b[k1]:=k2
end;

for j:=1 to k1 do
    begin
    j3:=0;
    for j2:=k1 downto 1 do
        begin
        j3:=j3+1;
        if(j<>j3) and (b[j]<>b[j2]) then
              begin
              k3:=1;
              break;
              end
        end;
    if k3=1 then break else k4:=1;
    end;

if k4<>1 then write(a[i],' ');
end;

end.

[Архат]

Все сделал, спасибо, тем кто потратил время, но не успел найти решение, выложу рабочую версию, может кому нибудь понадобиться

uses crt;
var  a:array[1..1000]of integer;
     b:array[1..100]of integer;
     n,k,i,j,j2,j3,k1,k2,k3,k4:integer;
     
begin clrscr;
writeln('Введите количество чисел');
readln(n);
writeln('Введите числа');
for i:=1 to n do
readln(a[i]);
writeln('Вы ввели');
for i:=1 to n do
write(a[i],' ');

writeln('Результат:');

for i:=1 to n do
begin
     k:=a[i];
     k1:=0;
     k3:=0;
     k4:=0;
while k<>0 do
begin
k2:=k mod 10;
k:=k div 10;
k1:=k1+1;
b[k1]:=k2;
end;

for j:=1 to k1 do
    begin
    j3:=0;
    for j2:=1 to k1 do
        if(j<>j2) then
        if (b[j]=b[j2]) then
              begin
              k3:=1;
              break;
              end
              end;
if k3<>1 then write(a[i],' ');
end;

end.