Задача с файлом. Не особо понимаю алгоритм действий

[pandaaaaa]

Дан текстовый файл. Длина строк произвольна. Слова в строках отделены друг от друга одним или несколькими пробелами. Длина слова не более 100 символов. Подсчитать количество слов в файле.

[TinMan]

var
  f: file of char;
  n: integer;
  c,d: char;
begin
  n:= 0;
  assign(f,'file.txt');
  reset(f);
  c:= ' ';
  while not EoF(f) do begin
    d:= c;
    if not (c in [' ',#10,#13]) and (d in [' ',#10,#13]) then inc(n)
  end;
  close(f);
  writeln('the file contains ',n,' words')
end.

[pandaaaaa]

там не более 100 символов.
И что значит

assign (f,'file.txt');
reset (f);

?

[QunneD]

assign - назначить переменной f содержимое файла 'file.txt'. (другими словами: связывает декриптор файла с текстовым или бинарным файлом)
reset - обозначает, то что файл указанный в f используеться для чтения.

[TinMan]

QunneD, спасибо, +1

Сообщение от pandaaaaa

там не более 100 символов.

Гм. Ну и что? Что ты этим хотел сказать? Да, я видел, что по условию слова не длиннее 100 символов.. Что с того? Блин, пальцы отвалятся что ли написать поподнобнее? ну, тупой я, не понимаю с полуслова..

И что значит

assign (f,'file.txt');
reset (f);

?

Открытие файла file.txt в текущей директории для чтения.

pandaaaaa, тебе тоже спасибо за твое спасибо.

[pandaaaaa]

не работает код, он компилирует, все ок, но при запуске просто черный экран. Я пол часа ждал думал так долго считает :DDD Но на экран так ничего и не вывел
Не не, спасибо конечно большое)

[pandaaaaa]

Сообщение от TinMan

QunneD, спасибо, +1
Гм. Ну и что? Что ты этим хотел сказать? Да, я видел, что по условию слова не длиннее 100 символов.. Что с того? Блин, пальцы отвалятся что ли написать поподнобнее? ну, тупой я, не понимаю с полуслова..

Открытие файла file.txt в текущей директории для чтения.

pandaaaaa, тебе тоже спасибо за твое спасибо.

Я когда условие писал пропустил "более" решил поправить)

[TinMan]

Сообщение от pandaaaaa

не работает код, он компилирует, все ок, но при запуске просто черный экран.

Ну так так бы и сказал! чего молчать-то? )) Я пропустил собственно чтение, извиняюсь..
Вот исправленный код:

var
  f: file of char;
  n: integer;
  c,d: char;
begin
  n:= 0;
  assign(f,'file.txt');
  reset(f);
  c:= ' ';
  while not EoF(f) do begin
    d:= c;
    read(f,c);   {this line was missing}
    if not (c in [' ',#10,#13]) and (d in [' ',#10,#13]) then inc(n)
  end;
  close(f);
  writeln('the file contains ',n,' words')
end.

[pandaaaaa]

исправил, теперь все работает, благодарю =***