题目是‘输入两串字符串，在第一串中寻找第二串，找不到输出’Can not found*,找得到的话输出每一次出现的位置，我编的程序如下：
Program ex;
Var a,b,z:string;
i,d,c,e:integer;
begin
readln(a);
readln(b);
c:=pos(b,a);
if c=0 then writeln(*Can not found!*)else begin
repeat
inc(i);
inc(e);
z[e]:=a[i]; if (e=length(b)) and (z=b)
then begin writeln(*Weizhishi:*,i-length(b)+1,*-*,i);z:=* *;e:=0;end else
begin e:=0;z:=* *;end;
until i=length(a);
end;
end.
求教错在哪儿，自己没看出来

直接用KMP不好吗