编译通过...

├ 测试数据 01：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 02：运行时错误...|错误号: -1073741571

├ 测试数据 03：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 04：运行时错误...|错误号: -1073741571

├ 测试数据 05：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 06：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 07：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 08：答案错误...　├ 标准行输出

　├ 错误行输出

├ 测试数据 09：运行时错误...| 错误号: 106 | 无效数字格式

├ 测试数据 10：运行时错误...|错误号: -1073741571

program word;

var a:array['a'..'z'] of longint;

b:array[1..100] of string;

i,j,k,l,n,x,m:longint;c:char;t:string;

function next(q,w:string):boolean;

begin

if a[q[1]]>a[w[1]] then begin next:=true;exit;end;

if a[q[1]]=a[w[1]] then begin delete(q,1,1);delete(w,1,1); next(q,w); end;

if a[q[1]]