Задача в паскале. Работа с текстовым файлом.

[Kissthedoll]

Дан первоначалный текстовый файл, в котором все элементы прописаны через пробел.
Надо вывести в новый текстовый файл, только уже чтобы каждый элемент был на отдельной строке.
Элементы - сочетания букв, цифр и спец знаков)

буду очень признательна за помощь... А то моя блондинистая голова совсем не варит(

[.Phoenix]

Могу помочь за финансовое вознаграждение. Пиши в аську [408-390-791] если что. Помогу твоей блондинистой голове

[Terran]

буду очень признательна за помощь...

Мне этого хватит.

Var
F1,F2: TextFile;
C: Char;
Begin
AssignFile(F1,'1.txt');
Reset(F1);
Assign(F2,'2.txt');
Rewrite(F2);
While Not Eof(F1) Do
Begin
Read(F1,C);
If C <> ' ' Then
Begin
Write(F2,C);
End
Else
WriteLn(F2);
End;
CloseFile(F1);
CloseFile(F2);
End.

Если будут нужны комментарии к коду, могу написать.

[Kissthedoll]

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

Кстати, .Phoenix, своим сообщением вы нарушаете правила данного раздела.
Перечитать их можно здесь http://www.programmersforum.ru/announcement.php?f=31

[Terran]

Спасибо, рыба моя золотая.

Не за что

как указать путь до текстового документа, который он просматривает и второго, в который он выводит?)

Первый:

AssignFile(F1,'Тут полный путь');

Второй аналогично:

Assign(F2,'C:\2.txt');

[Grag]

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

Кстати, .Phoenix, своим сообщением вы нарушаете правила данного раздела.
Перечитать их можно здесь http://www.programmersforum.ru/announcement.php?f=31

В этом разделе помогают тому, кто сам хоть что-то пытается сделать... Бывает не получается, вот тогда и помогут. А так - прямая дорога во фриланс за рублики...
Kissthedoll, где твои наработки, попытки что-то сделать самостоятельно??? Выкладывай, показывай, плиз!!! Поможем....

[.Phoenix]

Kissthedoll ещё раз внимательно прочти правила, видимо ты не все поняла...