统计单词数

前言
“帅就一个字，我只说一次。”欢迎来到嘟嘟课堂。今天，嘟嘟老师给大家将一道比较水的题——统计单词数。
题目描述
一般的文本编辑器都有查找单词的功能，该功能可以快速定位特定单词在文章中的位置，有的还能统计出特定单词在文章中出现的次数。
现在，请你编程实现这一功能，具体要求是：给定一个单词，请你输出它在给定的文章中出现的次数和第一次出现的位置。注意：匹配单词时，不区分大小写，但要求完全匹配，即给定单词必须与文章中的某一独立单词在不区分大小写的情况下完全相同（参见样例1），如果给定单词仅是文章中某一单词的一部分则不算匹配（参见样例2）。
输入
第 1 行为一个字符串，其中只含字母，表示给定单词；
第 2 行为一个字符串，其中只可能包含字母和空格，表示给定的文章。
输出
只有一行，如果在文章中找到给定单词则输出两个整数，两个整数之间用一个空格隔开，分别是单词在文章中出现的次数和第一次出现的位置（即在文章中第一次出现时，单词首字母在文章中的位置，位置从0 开始）；如果单词在文章中没有出现，则直接输出一个整数-1。
样例输入1
To
to be or not to be is a question
样例输出1
2 0
样例1说明
输出结果表示给定的单词 To 在文章中出现两次，第一次出现的位置为0。
样例输入2
to
Did the Ottoman Empire lose its power at that time
样例输出2
-1
样例2说明
表示给定的单词 to 在文章中没有出现，输出整数-1。
数据范围限制
1 ≤ 单词长度≤ 10。
1 ≤ 文章长度≤ 1,000,000。
思路
此题比较水。直接把文章循环扫一遍，碰到空格就把前一个单词判断，并且记录第一个位置（具体实践请看下方标程）就行了。淼！！！
代码

var
        i,k,ans:longint;
        s,ss,sss:ansistring;
        p:boolean;
begin
        readln(s);
        readln(ss);
        ss:=ss+' ';
        for i:=1 to length(s) do
                if (s[i] in ['A'..'Z']) then s[i]:=chr(ord(s[i])+32);
        for i:=1 to length(ss) do
                if (ss[i] in ['A'..'Z']) then ss[i]:=chr(ord(ss[i])+32);
        for i:=1 to length(ss) do
        begin
                if (ss[i]=' ') then
                begin
                        if (sss=s) then
                        begin
                                inc(ans);
                                if (p=false) then
                                begin
                                        p:=true;
                                        k:=i-length(sss)-1;
                                end;
                        end;
                        sss:='';
                end
                else sss:=sss+ss[i];
        end;
        if not p then write('-1') else write(ans,' ',k);
end.