求助大神，为什么只有80分？？

function f(a,b:char):boolean;
begin
  if ord(a)<96 then a:=chr(ord(a)+32);
  if ord(b)<96 then b:=chr(ord(b)+32);
  if ord(a)=ord(b) then exit(true) else exit(false);
end;
var s:ansistring;t:string;a,b,h,i,j,k,c,x,y,z:longint;
    e:boolean;
begin
  for i:=1 to 15 do t[i]:='{';
  read(t);readln;read(s);readln;z:=maxlongint;
  x:=length(s);y:=length(t);c:=0;
  i:=1;e:=true;
while i<=x  do
begin
if i>1 then
begin
    if s[i-1]=' ' then
    begin
      h:=i;
      for j:=h to h+y do
      if f(s[j],t[j-h+1])=false then break;
      if (j=h+y)and(s[j]=' ')then
      begin
        if h<z then z:=h;
        inc(c); i:=h+y+1;
      end;
      h:=0;j:=0;inc(i);
    end else inc(i);
end else
begin
      h:=1;
      for j:=h to h+y do
      if f(s[j],t[j-h+1])=false then break;
      if (j=h+y)and(s[j]=' ')then
      begin
        if h<z then z:=h;
        inc(c); i:=h+y+1;
      end;
      h:=0;j:=0;inc(i);
end;
end;
  if c=0 then write('-1') else begin write(c,' ',z-1); end;
end.