Напечатать в возрастающем порядке трехзначные числа - Pascal

Формулировка задачи:

Напечатать в возрастающем порядке трехзначные числа, в десятичной записи которых нет одинаковых цифр (операции деления (/, div и mod) не использовать). Помогите пожалуйста! Очень надо сегодня. И если возможно объясните немного решение

Решение задачи: «Напечатать в возрастающем порядке трехзначные числа»

Листинг программы

var a,b,c,x:string; z:integer;
begin
for z:=100 to 999 do
begin
str(z,x);
a:=copy(x,1,1);
b:=copy(x,2,1);
c:=copy(x,3,1);
if (a<>b) and (b<>c) and (c<>a) then write(z,' ');
end;
end.

Объяснение кода листинга программы

В начале объявляются переменные a, b, c и x типа string и z типа integer.
Затем идет цикл for, который проходит от 100 до 999 (не включая эти значения).
Внутри цикла вызывается функция str(), которая преобразует число z в строку и сохраняет результат в переменной x.
Далее вызываются функции copy(), которые копируют первые три символа строки x и сохраняют результаты в переменных a, b и c.
Затем сравниваются значения переменных a, b и c. Если они не равны друг другу, то число z выводится на экран с пробелом.
После завершения внутреннего цикла for программа завершается.