ых... не охота мне паскаль учить...

могу алгоритмом помочь:
сравниваем пары разрядов
0 - 1
0 - 2
0 - 3
1 - 2
1 - 3
2 - 3
Если хоть одно сравнение показало, что символы равны, возвращаем false. Если ни одна пара символов не совпала, возвращаем true.

Как сравнивать i и j разряды числа d (считая справа):
if ((d div 10^i) mod 10)=((d div 10^j) mod 10)
^ - имеется в виду возведение в степень, не знаю, работает ли оно в паскале.