program p3(input,output); {输入字符串，截取100个字符存入，多余的去掉，再输出}
type
T1=array[1..100] of string[1];
var
a:T1;
b:string;
c,i,len:integer;
procedure pd1;
procedure pd2;
begin {pd2子程序}
if (len>100) then {判断有没有大于100}
begin
c:=length(b);
delete(b,c-len+101,len-100); {有则截去}
end;
for i:=len+1 to len+length(b) do
a[i]:=copy(b,i-len,1); {存入字符}
end; {pd2结束}
begin {pd1子程序开始}
while (len<>100) do
begin
writeln(*please input strings*);
readln(b); {输入字符}
pd2; {调用pd2}
len:=len+length(b);
end; {pd1程序结束}
begin {主程序开始}
len:=0;
pd1;
for i:=1 to 100 do
write(a[i]);
end. {主程序结束}
结果pascal显示最后一行”end.“把“;"写成”."，求大神帮忙解答

某处漏了个end;呗

谢谢，这个问题已解决。