Помогите с программированием операций обработки файлов(Pascal)

[Дима82]

Программирование операций обработки файлов(Pascal)

Вид обработки данных:
Включение в каждую строку заданной последовательности символов после символа с заданным номером...

Это как, вообще, делать, подскажите... Срочно надо на понедельник...

[eoln]

каждую строку

Работаем с текстовым файлом?

while not eof(f1) do begin
  readln(f1, s); //читаем строку из файла 1
  insert(ch, s, n); //в прочитанную строку на позицию n вставляем символ ch
  writeln(f2, s) //записываем новую строку в файл 2
end;

[Дима82]

Да с текстовым...

"Составить программу обработки текстовых данных, хранящихся в произвольном файле на магнитном диске. Текстовые данные во входном файле создаются с помощью текстового редактора, например: Блокнота. Длина строки файла не должна превышать 80 символов. Текст исходного файла должен позволять тестировать программу и нормальных, граничных и исключительных условиях. В программе предусмотреть ввод с терминала имен входного и выходного (в случае необходимости) файлов, а также вывод на печать входного и выходного файлов. Размеры файлов должны быть такими, чтобы текст входного и выходного файлов помещался в пределах одной страницы экрана. В программе предусмотреть запись выходного файла на диск."

[Дима82]

Что означает эта строка "not eof(f1)"?

[vitalik007]

пока не конец файла

[eoln]

Вот голова программы (писал в форуме, не тестировал) - ноги и руки (объявление переменных) доделать нетрудно

{$I-} //директива компилятора
write('Input file = ');readln(file1);
write(Output file = ');readln(file2);
assign(f1, file1); reset(f1);
if ioresult<>0 then begin //исключительная ситуация - файла нет
  write('File not found');
  readln;
  halt
end;
assign(f2, file2); rewrite(f2);
while not eof(f1) do begin  //граничная ситуация пока нет конца файла
  readln(f1, s); //читаем строку из файла 1   
  insert(ch, s, n); //в прочитанную строку на позицию n вставляем символ ch   
  writeln(f2, s) //записываем новую строку в файл 2   
end;
close(f1);
close(f2);

[Дима82]

А какие должны быть "ноги и руки"... Я первый раз решаю задачу с файлами, помогите...

[Дима82]

Program Lb9;
Uses crt;
Var file1,file2,s:string;
    f1,f2:text;
    n:integer;
    ch:char;
Begin
{$I-}
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1, file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
 halt
end;
assign(f2, file2);
rewrite(f2);
while not eof(f1) do begin
 readln(f1, s);
 insert
 (ch, s, n);
  writeln(f2, s)
 end;
 close(f1);
 close(f2);
End.

Что не правильно?

[puporev]

Program Lb9;
Uses crt;
Var file1,file2,s,s1:string;//добавить переменную s1
    f1,f2:text;
    n:integer;
Begin
{$I-}
clrscr;//добавить очистку экрана
write('Input file= ');
readln(file1);
write('Output file= ');
readln(file2);
assign(f1, file1);
reset(f1);
if ioresult<>0 then begin
 write('File not found');
 readln;
 halt
end;
assign(f2, file2);
rewrite(f2);
write('n=');readln(n);//задать значение n(куда вставлять)
write('s1: ');readln(s1);//что вставлять(строку символов)
while not eof(f1) do begin
 readln(f1, s);
 insert
 (s1, s, n);
 writeln(f2, s)
 end;
 close(f1);
 close(f2);
End.

Остальное все работает. Не забывай вводить имя файлов с расширением Stroka1.txt Stroka2.txt.

[Дима82]

Я никак не пойму, что надо вводить на экране когда выходят "Input file=", "Output file="...Так как я задачу такую решаю в первый раз расскажите поподробней, что надо сделать, пожалуйста...