Question

跪求pascal求题解，非常简单的，怕没人答，先不给分，写出代码加50分

题目描述 Discription
给出字符串a和字符串b，保证b是a的一个子串，请你输出b在a中第一次出现的位置。
输入描述 Input Discription
仅一行包含两个字符串a和b
输出描述 Output Discription
仅一行一个整数
样例输入 Sample Input
abcd bc
样例输出 Sample Output
2

Answer 1

var a,b,st:string;
p:longint;

begin
readln(st);
p:=pos(' ',st);
a:=copy(st,1,p-1);
b:=copy(st,p+1,length(st)-p);
p:=pos(b,a);
writeln(p);
end.

Answer 2

样例：入：abcabcabx ca
出：3
var s,s1:string;
i:integer;
begin
readln(s,s1);
i:=pos(s1,s);
writeln(i);
end.
这么简单。。

追问

①连样例都不能过
②读入一行，处理空格啊

追答

嗯...这个问题...简单！
var s,s1:string;
c:char;
i:integer;
begin
repeat
read(c);
s:=s+c;
until C=' ';
readln(s1);
i:=pos(s1,s);
writeln(i);
end.
我小学六年级呢。。。