[aleksnine]

Спасибо всем.

Сделал так :

for i:= 1 to length(s) do if s[i] = '-' then s[i]:= '+';