"Дан текстовый файл f, состоящий из нескольких строк. Переписать его в файл g следующим образом: если в тексте нет символа ‘+’, то оставить этот текст без изменения, иначе каждую из цифр, предшествующую первому вхождению символа ‘+’ заменить на символ ‘-‘"
begin
Readln (z,s);
For j:=1 to length(s) do
begin
if s[j]<>'+' then
if s[j] in ['0'..'9'] then s[j]:='-';
if s[j]='+' then break;
end;
writeln (y,s);
end;
Вот в этом куске моя и есть проблема. А состоит она в следующем, что при принудительном завершении цикла, если в строке находится "+", цикл запускается заново для следующей строки, а вот как решить эту проблему у меня не находится идеи.