Question

单词连接 （link.pas/c/cpp）pascal语言的问题，求pascal程序详细内容

单词连接
（link.pas/c/cpp）
内存限制：32MB
时间限制：1秒
问题描述：
输入文件中包含两行，每行一个单词，共两个单词，现在将它们进行如下连接：beast,astonish-> beastonish;但两个单词之间不能存在包含关系，例如at 和atide不能相连。输入两个单词，输出文件共一行，如能连接则输出它们相连后构成的一串字符，如不能连接，则输出“wrong!”
输入样例1：Link.in
beast
astonish
输出样例：link.out
beastonish

输入样例2：Link.in
ast
astonish
输出样例：link.out
wrong!

Answer 1

错了请告诉我 谢谢

var i,p0:longint;
s0,s1,s2,ansS:string;
begin
readln(s1);
readln(s2);

for i:=2 to length(s1) do begin
s0:=copy(s1,i,255);
p0:=pos(s0,s2);
if p0=1 then begin ansS:=copy(s2,length(s0)+1,255); s2:=''; break; end;
end;

for i:=2 to length(s2) do begin
s0:=copy(s2,i,255);
p0:=pos(s0,s1);
if p0=1 then begin ansS:=copy(s1,length(s0)+1,255); s1:=s2; break; end;
end;

if ansS<>'' then writeln(s1,ansS) else writeln('wrong!');
end.