[Роман93]

Дан текстовый файл f. Переписать компоненты файла f в файл g, вставляя в начало каждой строки по одному пробелу. Порядок компонент должен быть сохранен.

[M.A.D.M.A.N.]

см. readln, writeln.

[NumLock]

опиши типы файловых переменных как TextFile, задай файлы через AssignFile, открой для чтения Reset, для записи Rewrite. в цикле до Eof читай строки ReadLn, добавляй в начало пробел, пиши WriteLn. в конце закрой файлы CloseFile. примеры по каждой процедуре есть в файле справки.

[Yurk@]

навскидку

Код:

while not f.Eof do
 Writeln(g, ' '+Readln(f));

обьявление переменных (f и g) и Assign думаю сам сделаешь

[NumLock]

Сообщение от Yurk@

Код:

while not f.Eof do
 Writeln(g, ' '+Readln(f));

ReadLn процедура