Файлы(подсчет последованности слова в строке)

[p4serhiy]

С помощью тестового редактора создать файл, создать текст длина которого не превышает 1000 символов (длина строки 70).
Файл должен расширения (*.dat). Написать программу, что:
1) Выводит текст на экран дисплея.

2) Определяет порядковый номер заданного слова в предложении (слово ввести с клавиатуры).
Выделить заданное слово слово в тексте.

Вот я написал ток у меня считает сколько слов в строке...
а мне нужно какое ет слово по последовательности не могу сделать(

USES Crt;
{------------------------------------------------------------------------------}
PROCEDURE FileProcessing;
VAR DF                  : text;
    LOF                 : string;
    W                   : string[20];
    i,j,q,qq,e,ee,k,r,z,f,ff,kilk : integer;
BEGIN
Assign(DF,'DF.dat');
Reset(DF);
Writeln('Enter word:');
 Readln(W);
ee:=Length(W);
kilk:=0;
While not EOF(DF) do BEGIN
         Readln(DF,LOF);
         e:=Length(LOF);
         q:=1;
         For i:= 1 to e do BEGIN
                      If (LOF[i]=W[q]) Then BEGIN
                      k:=0;
                      qq:=i;
                      For r:= 1 to ee do If LOF[qq]=W[r] then BEGIN
                                    k:=k+1;
                                     qq:=qq+1;
                                            END;
                                     If k=ee then BEGIN
                                            f:=i;
                                            ff:=i+ee;
                                             while f<>ff do BEGIN
                                             TextBackground(Red);
                                             Write(LOF[f]);
                                             f:=f+1;
                                             END;
                                             i:=ff;
                                                    END;
                                                    END;
                                        if LOF[i]=' ' then kilk:=kilk+1;
                                        Delay(60);
                                        TextBackground(White);
                                        Write(LOF[i]);
                                        if LOF[i]='.' then begin
                                              writeln('          ',kilk);
                                              kilk:=1;
                                                end;
                                        END;
                     END;
Close(DF);
END;
{------------------------------------------------------------------------------}
BEGIN
clrscr;
FileProcessing;
 Readln
END.