Написание кода на Paccal ABC "Числа Капрекара"

Здравствуйте. Срочно нужна помощь в написании программы по выводу чисел Капрекара. Я начала писать код, но не могу написать теперь цикл
program a1;

var
i, j, z,a: shortint;
begin
writeln('Введите число: ');
readln(i);
a:=i;

while i <> 0 do
begin
j := j * 10 + i mod 10;
i := i div 10;
end;
writeln(j);
z:=a-j;
writeln(z);

readln;
end.
Цикл должен сравнивать z с 9 если равно выводить i, если не равен должен опять делать операцию которая написана. Подсткажжите так куда же вставить цикл?