ЗАДАЧА С ФАЙЛОМ Опции

[Vlad]

Здравствуйте, помогите, пожалуйста решить задачку по паскалю. У меня курсовая в понедельник, а я немогу разобраться! ПОЖАЛУЙСТА!!!


Дано символьный файл f, найти количество слов в файле.

Сообщение отредактировано: Vlad - 21.05.2009 18:40

[Vlad]

вот наброски сделал, но не работает


program lab_file;

uses crt;
var
words: file of string;
ch:char;
s:integer;
f:string;

begin
assign (words.txt,f);
while not eof(f) do begin
while ch <> ' ' do
read(f,ch);
S:=S+1;
end;
writeln(s);
end.