Динамическая память Опции

[setare]

Здравствуйте! Извините за беспокойство. Я опять хочу вернуть ту тему про динамическую память, где вы мне помогли сортировать слова. После этого попыталась изменить программу так. чтобы она считывала из файла в строчку, но она не заработала, и я ее испортила и теперь никак не могу ее привести к божескому виду. Извините, но не могли бы вы снова мне помочь иеммно с считыванием слов из файла, которые написаны в строчку. Пожалуйста. Текст задачи следующий:
Имеется текстовый файл. Известно, что в этом файле не более 1000 слов. Слова отделены одним или несколькими пробелами. Длина слова не более 150. Необходимо сортировать все слова в файле по альфавиту и записать в другой файл каждое слова в каждой строке. :molitva:

[setare]

Извините, а невозможно никак заменить вот эту строчку?

Код

while ch in [#32, #13, #10, #26] do read(f, ch);

Можно написать , что пока символ не равен пробелу тогда делаем то-та и тд. А также другую строчку тоже с кодами?

Код

until ch in [#32, #13, #10, #26];

[volvo]

Можно написать , что пока символ не равен пробелу тогда делаем то-та и тд.

Нет !!! Если так сделать, то программа войдет в бесконечный цикл ... только так, как я написал, или совсем по-другому... Но это уже сами...