текстовый Файл Опции

[itGarD]

Вот собственно задача, которая вызывает у меня затруднение:
"Дан текстовый файл f, состоящий из нескольких строк. Переписать его в файл g следующим образом: если в тексте нет символа ‘+’, то оставить этот текст без изменения, иначе каждую из цифр, предшествующую первому вхождению символа ‘+’ заменить на символ ‘-‘"

Код

   For i:=1 to n do
  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;

Вот в этом куске моя и есть проблема. А состоит она в следующем, что при принудительном завершении цикла, если в строке находится "+", цикл запускается заново для следующей строки, а вот как решить эту проблему у меня не находится идеи.

[Archon]

Чтобы найти вхождение символа в строку используй функцию pos (подробней в хелпе).