倒数第二个点超时，怎么改

var
 a,b:ansistring;
 n,i,s,f,b1,a1,j,check,ans:longint;
begin
 s:=1;
 readln(b);
 readln(a);
 b:=lowercase(b);
 a:=lowercase(a);
 a1:=length(a);
 b1:=length(b);
 while s<>0 do
  begin
   s:=pos(b,a);
   if (s<>0)and(s=1)and(a[s+b1]=' ') then
    begin
     inc(ans);
     if ans=1 then f:=s-1;
    end
   else
    if (s<>0)and(s+b1-1=a1)and(a[s-1]=' ') then
    begin
     inc(ans);
     if ans=1 then f:=s-1;
    end
    else
    if (s<>0)and(a[s+b1]=' ')and(a[s-1]=' ')then
     begin
      inc(ans);
      if ans=1 then f:=s-1;
     end;
    if s<>0 then
     for i:=s to s+b1-1 do
      a[i]:='\';
  end;
  if ans=0 then write('-1')
  else write(ans,' ',f);
end.