Паскаль, текстовые файлы

[Ильгиза]

Паскаль, текстовые файлы

Здравствуйте!
Помогите, пожалуйста разобраться с задачей!( я в опечалена тем, что занимаюсь программированием 1.5 года , но не все и всегда понимаю. Как я же я завидую специалистам)

Необходимо написать программу, преобразующую текстовый файл в соответствии с требованиями, заданными в конкретном варианте.

в качестве исходного текстового файла взять файл с текстом любой программы.
В программе использовать строковую функцию
pos(st1,st)

В начало строки , в которой располагается процедура Close дописать комментарий {конец строки}

 

[Vladimir_S]

В начало строки , в которой располагается процедура Close дописать комментарий {конец строки}

И в чем проблемы? Не вижу таковых. Пожалуйста (пути к файлам поправьте на свой вкус):

Var
 f,g:Text;
 S,S1:String;
Begin
 S1:='{end of line}';
 Assign(f,'D:\input.txt');
 Reset(f);
 Assign(g,'D:\output.txt');
 Rewrite(g);
 Repeat
  Readln(f,S);
  If Pos('Close',S)=0 then
   Writeln(g,S)
  else
   Writeln(g,S1+S);
 Until EoF(f);
 Close(f);
 Close(g);
End.

 

[Ильгиза]

Спасибо Вам огромное!!!