program ex;
type
arr=array[10..99] of integer;
var
a,y:arr;
c,b:integer;
procedure sb(var x,j:arr);
var
i,a,b,c,d,e:integer;
begin
for i:=10 to 99 do
begin
e:=i;
d:=1;
a:=i div 10;
b:=i mod 10;
c:=a+b;
while c div 10=0 do
begin
a:=c div 10;
b:=c mod 10;
c:=a+b;
d:=d+1;
end;
x[i]:=d;
j[i]:=e;
end;
end;
begin
sb(a,y);
b:=10;
for c:=11 to 99 do
begin
if y[b]<y[c] then b:=c;
end;
writeln(*这种两位数是*,y[b],*它用了*,a[b],*次计算出来。*);
readln;
end.

rt，exitcode=201，怎么解