大牛们给看看为什么有两组输出太长啊

program isbn;

var s,s1:string;

i,sum,t,k:longint;

begin

assign(input,'isbn.in');

assign(output,'isbn.out');

reset(input);

rewrite(output);

readln(s);

s1:=copy(s,1,12);

val(s[13],t);

delete(s,12,2);

delete(s,6,1);

delete(s,2,1);

for i:=1 to 9 do

begin

val(s[i],k);

inc(sum,k*i);

end;

sum:=sum mod 11;

if sum=10 then writeln(s1+'X')

else begin

if sum=t then writeln('Right')

else begin

str(sum,s);

writeln(s1+s);

end;

end;

close(input);

close(output);

end.