一个判断4位数多少次掉进6174黑洞

var
a,b,c,d,i,j,k,n,x:integer;
begin
readln(n);
x:=0;
repeat
a:=n mod 10;
b:=(n div 10) mod 10;
c:=(n div 100) mod 10;
d:=(n div 1000) mod 10;
i:=0;
if a<c then
begin
i:=a;
a:=c;
c:=i;
end;
if b<c then
begin
i:=b;
b:=c;
c:=i;
end;
if b<d then
begin
i:=b;
b:=d;
d:=i;
end;
if c<d then
begin
i:=c;
c:=d;
d:=i;
end;
if a<b then begin
i:=a;
a:=b;
b:=i;
end;
j:=a*1000+b*100+c*10+d;
k:=d*1000+c*100+b*10+a;
n:=j-k;
x:=x+1;
until n=6174;
write(x);
readln;readln;
end.

有些数字可以 有些直接程序错误

一个任意四位正整数，将四位数字重新组合成一个最大的数和一个最小的数 不出7次 必得6174

成功的都是只有2次了 其他都出错i了

题目是啥？