Цитата:
Сообщение от Ильгиза
В начало строки , в которой располагается процедура 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.