Подсчет слов в документе word

program analiz_text;
        var simvol, slov, pred, abzac: integer;
            f: text;
            symb: char;
            nazva: string;
begin
     writeln('Введите название файла');
     readln(nazva);
     assign(f, nazva);
     reset(f);
     simvol:=0;
     slov:=1;
     pred:=0;
     abzac:=1;
     repeat
           read(f, symb);
           write(symb);
           simvol:=simvol+1;
           if symb=chr(32)then slov:=slov+1;
           if symb=chr(46) then pred:=pred+1;
           if symb=chr(13) then abzac:=abzac+1;
           until EoF(f);
     writeln;
     writeln('В тексте ',simvol,' символов, ',slov,' слов, ',pred,' предложений, ',abzac,' абзацов');
     writeln('Нажмите Enter для завершення');
     readln;
     close(f);
end.

алгоритм перевода с doc в txt