программирование pascal (паскаль) алгоритм с перестановкой цифр в числе

помогите! чего-то я тут туплу, не знаю как сделать дальше. вот условие задачи: Найти все шестизначные числа, при умножении которых на 3 или 7 в произведении получается число, образованное перестановкой цифр данного числа. вот я сделал точно такое только при умнажении просто на 3. вот что у меня получилось: program prog; var i,n,p,k:integer; a,b,c,d,e,f:array[1..2] of integer; begin for i:=100000 to 999999 do begin a[1]:=i div 100000; b[1]:=i div 10000 mod 10; c[1]:=i div 1000 mod 10; d[1]:=i div 100 mod 10; e[1]:=i div 10 mod 10; f[1]:=i mod 10; p:=i*3; // writeln(p); a[2]:=p div 100000; b[2]:=p div 10000 mod 10; c[2]:=p div 1000 mod 10; d[2]:=p div 100 mod 10; e[2]:=p div 10 mod 10; f[2]:=p mod 10; if (a[2]=a[1]) or (a[2]=b[1])or(a[2]=c[1]) or (a[2]=d[1])or(a[2]=e[1])or (a[2]=f[1]) then //a if (b[2]=a[1]) or (b[2]=b[1])or(b[2]=c[1]) or (b[2]=d[1]) or(b[2]=e[1]) or(b[2]=f[1]) then //b if (c[2]=a[1]) or (c[2]=b[1])or(c[2]=c[1]) or (c[2]=d[1]) or (c[2]=e[1])or(c[2]=f[1]) then //c if (d[2]=a[1]) or (d[2]=b[1])or(d[2]=c[1]) or (d[2]=d[1]) or (d[2]=e[1])or(d[2]=f[1]) then //d if (e[2]=a[1]) or (e[2]=b[1])or(e[2]=c[1]) or (e[2]=d[1]) or (e[2]=e[1])or(e[2]=f[1]) then //e if (f[2]=a[1]) or (f[2]=b[1])or(f[2]=c[1]) or (f[2]=d[1]) or (f[2]=e[1])or(f[2]=f[1]) then //f if a[1]+b[1]+c[1]+d[1]+e[1]+f[1]=a[2]+b[2]+c[2]+d[2]+e[2]+f[2] then writeln(i,'(',p,')'); end; end. только у меня проблема в том то например дано число 142857 то при умнажении получается чило 428571 вроде все провильно, но выплывают тут также такие числа как 595485, 198495*3=595485 тоесть я так понял у меня не правильное сравнение подскажите как их еще можно сравнить