Работа с текстовым файлом

[Vasya]

подскажите пожалуйста, оч. срочно нужно
задача такая: необходимо подсчитать в текстовом файле кол-во слов написал кусочек проги:

begin
   k_word:=0;
   Writeln('Ââåäèòå èìÿ ôàéëà');
   Readln(file_name);
   Assign(f, file_name);
   Reset(f);
   while not eof(f) do
   begin
      Read(f, v);
      if v in [' ',':', ';', ',', '.'] then
         k_word:=k_word+1;
   end;
   close (f);
   Writeln('Êîëè÷åñòâî ñëîâ â ôàéëå', file_name, '=', k_word);
   Readln;
end.

только вот незадача, если после слова никаких разделителей нет оно не считается , подскажите плз как исправить эту проблему

[puporev]

Если после слова нет разделителя, то как вы определяете, что это два слова?

[Vasya]

я имел ввиду последнее слово в строке

[_Dmitry]

Добавьте символ конца строки
if v in [' ',':', ';', ',', '.', #13] then

[Vasya]

пробовал эффект тот же, вместо трех слов подсчитываются два

[puporev]

Eoln - конец строки, это комбинация символов ASCII #13 (CR) и #10 (LF);

[_Dmitry]

А последняя строка у вас завершена Eoln? Enter после ввода давили? Если нет, то там нет завершающего строку символа. Тогда после цикла к k_word сами добавляйте единичку.

[Vasya]

А последняя строка у вас завершена Eoln? Enter после ввода давили? Если нет, то там нет завершающего строку символа. Тогда после цикла к k_word сами добавляйте единичку.

ввожу Enter - все равно не подсчитывается
код изменил:
if v in [' ',':', ';', ',', '.', #10, #13] then

[_Dmitry]

А зачем и #13, и #10 (они же стоят друг за другом) - или то или другое...

[puporev]

Во первых не #10, #13, а #13,#10,важна последовательнось. Кроме того комбинация символов (по крайней мере в Делфи) это #13+#10. Попробуйте, если не получится, придется считывать текст построчно и считать слова в строчках, сейчас найду этот код.