前面加 type dds=string[11];
procedure Print(t:longint;s:string[11]); 改为 procedure Print(t:longint;s:dds);

大段代码请使用 http://paste.ubuntu.com/。。。

上面没贴好，

var 

                        ch:char; 

                        s:string[11]; 

                        n,m,i,j,k,p,r,ans,w,x,y:longint; 

                        a:array[0..21,1..4] of longint; 

                        b:array[0..21] of char; 

                        vis:array[0..11,'0'..'z'] of boolean; 

                        f:array[0..12] of longint; 

                        g:array[0..11,0..11] of char; 

                        c:array[0..11,1..2] of longint; 

function check(x,y,t:longint):boolean; 

var 

                        j:real; 

begin 

                        if (x>=a[t,1])and(x=a[t,2])and(y