задача "файлы" помогите решить, задали задачку уже 8 часов голову ломаю(((( Опции

[Vigame]

вот задача

Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.

помогите пожалуйста нечего не получается смог смастерить программу для подсчета слов в фаиле и больше нечего паскаль идет всего неделю и нужно срочно сдать задачу

Заранее спасибо

[Vigame]

спасибо работает но нужно сделать сохранение в другой фаил....


делал вот так

         Assign(f,'Text2.txt');
         ReWrite(f);
         Write(f,i,':',a[i]:10);
         Close(f);

но что-то не получается помогите пожалуйста

за всех нужно форматировать...

Сообщение отредактировано: Lapp - 16.12.2008 16:56

[Lapp]

Если ты делаешь форматированный вывод, то файл должен быть типа text Заведи еще один файл:

g: text;

- и выводи в него.