Числа Капрекара

[aliya28]

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

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, если не равен должен опять делать операцию которая написана. Подсткажжите так куда же вставить цикл?

[Stilet]

Прикольно :

program Project1;



function Kaprekar(n:integer):integer;
var q,w:array[1..10] of integer; a,b,e,l,j,i:integer;
begin
  j:=n; l:=1;

  while j>0 do begin
    q[l]:=j mod 10; w[l]:=q[l];
    j:=j div 10;
    inc(l);
  end;
  dec(l);
  for i:=1 to l do for j:=1 to l do begin
   if q[i]<q[j] then  begin e:=q[i];q[i]:=q[j];q[j]:=e;end;
   if w[i]>w[j] then  begin e:=w[i];w[i]:=w[j];w[j]:=e;end;
  end;

  a:=q[1];for i:=2 to l do begin a:=a*10+q[i]; end;
  b:=w[1];for i:=2 to l do begin b:=b*10+w[i]; end;
  if a>b then result:=a-b else result:=b-a;
end;

var i,n:integer;
begin
 n:=8326;
 for i:=1 to 10 do begin
  n:=Kaprekar(n); writeln(n);
 end;
 readln;
end.

Ох уж эти нумеронафты...