pascal问题

1.语句上的错误： read(n);应该改成readln(n);因为m是字符串 对于out文件，没有rewrite(t);结尾没有close(t); for i:=1 to k do a[i]:=ord(m[i])-48; s[i]:=m[i]; 是不是要加begin 和end啊，个人意见 while s[k+1]=' ' do ;这一句多了个分号，还有s[k+1]没有提前赋值怎么可能是空格... 2.算法上