单词连接 （link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容单词连接（link.pas/c/cpp）内存限制：32MB 时间限制：1秒输入文件中包含两行,每行一个单词,共两个单词,现在将它们进行如下连接

单词连接 （link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容单词连接（link.pas/c/cpp）内存限制：32MB 时间限制：1秒输入文件中包含两行,每行一个单词,共两个单词,现在将它们进行如下连接
单词连接 （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!

单词连接 （link.pas/c/cpp）pascal语言的问题,求pascal程序详细内容单词连接（link.pas/c/cpp）内存限制：32MB 时间限制：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.