最后一个点过不去

const maxn=100;

type x=record

str:string;

a:array[1..maxn] of string;

l,r:longint;

end;

var yw:array[1..maxn] of x;

i,n,code,j,l1:longint;

function max(str:string):int64;

var i,l,j:longint;

ch:char;

begin

l:=length(str);

for i:=1 to l-1 do

for j:=i+1 to l do

if ord(str[i])ord(str[j]) then begin ch:=str[i]; str[i]:=str[j]; str[j]:=ch; end;

val(str,min,code);

end;

procedure ywq(k:longint;str1:string);

var i,l2:longint;

begin

for i:=1 to yw[k].r-2 do

if str1=yw[k].a[i] then begin yw[k].l:=i; exit; end;

str(max(str1)-min(str1),str1);

l2:=length(str1);

if l2