Дан файл,содержащий текст на русском языке. Выяснить,входит ли данное слово в указанный текст,и если «да»,то сколько раз — Pascal(Паскаль)

{Дан файл,содержащий текст на русском языке.
 Выяснить,входит ли данное слово в указанный текст,и если "да",то сколько раз.}

program n3;
USES CRT;
var s,sl,r,p:string; t:text;k,i:integer;
begin CLRSCR;k:=0;
  write ('слово ');
  readln(sl);
  write ('в файл ');
  readln(r);
   assign(t,r);
    reset(t);
    while not eof(t) do
    begin
     readln(t,p);
       s:='';
      FOR I:=1 TO LENGTH(P) DO
       BEGIN
         IF (P[I]<>' ') AND (P[I]<>'.')
          then S:=S+P[I]
          else
                      IF S=SL THEN
                                  begin
                                  k:=k+1;
                                  s:='';
                                  end
                               else
                                   s:=''
        end;
      end;
  if k>0 then writeln (k) else writeln ('такого слова в тексте нет ')
end.