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

[Vasya]

Var
   v: char;
   a, file_name:String;
   f:Text;
   i, k_word: integer;
begin
   k_word:=0;
   Writeln('Input file name');
   Readln(file_name);
   Assign(f, file_name);
   Reset(f);
   while not eof(f) do
   begin
      Read(f, v);
      for i:=length(v)downto 1 do
      while pos('  ',v)>0  do  delete (v, pos('  ',v), 1);
      if v in [' ',':', '(', ')', '{', '}', '[', ']', ';', ',', '.',#13,#10] then
      k_word:=k_word+1;
   end;
   close (f);
   Writeln('Count word in file = ', k_word);
   Writeln('Press <Enter> to exit');
   Readln;
end.

[puporev]

Напиши Var
v: string;
Как можно считывать файл в символ? Или в стоку или в массив символов. Кстати строка в принципе и есть массив символов.

[puporev]

И еще убери это
Writeln('Press <Enter> to exit');
Вполне хватит
Readln;

[Vasya]

Ну тогда ошибка о несовместимости типов Char and String в этой строке:
if v in [' ',':', '(', ')', '{', '}', '[', ']', ';', ',', '.',#13,#10] then

[puporev]

Не if v in, if v[i] in. Строка не может быть символом, а ее элементы символы.

[Vasya]

теперь вообще подсчитывает количество слов = 0, хотя их три
-----------------------------------------------------------------------

спасибо разобрался

[puporev]

Попробуй еще так, если не получится то я только завтра, вернее сегодня полностью посмотрю, а то у меня три часа ночи, засыпаю, извини, что не смог помочь.

while not eof(f) do  
   begin  
      Read(f, v);   
      for i:=length(v)downto 1 do  
         begin
           while pos('  ',v)>0  do  delete (v, pos('  ',v), 1);  
         end; 
      if v[i] in [' ',':', '(', ')', '{', '}', '[', ']', ';', ',', '.',#13,#10] then  
      k_word:=k_word+1;   
   end;

[Vasya]

спасибо, ты очень помог

[puporev]

Еще подумал, можетбыть следующее:
1. У тебя в pos(' ',v) точно по два пробела стоят?
2. В конце текста должен стоять разделитель, обычно точка, иначе последнее слово не подсчитает.
3. Если первые два пункта верно, то попробуй написать так:

while not eof(f) do  
   begin  
      Read(f, v); 
   end;
k_word:=0;
for i:=length(v)downto 1 do  
   begin
       while pos('  ',v)>0  do  delete (v, pos('  ',v), 1);  
        if v[i] in [' ',':', '(', ')', '{', '}', '[', ']', ';', ',', '.',#13,#10] then  
        k_word:=k_word+1;  
   end;

4. Если ничего не получится и дело терпит хотя бы до завтра до обеда, то скинь мне в личку полный текст задания, попробую сделать, а то искать ошибки в чужих кодах не люблю.