заменить в файле + на -, заменить в файле + на - Опции

[gylayko]

Открыть файл я смогу, вот
assign(f,'C:\12.txt');
reset(f);
потом нужно поменять в нем + на - и наоборот
примерно что-то такое
while not eof(f) do
begin
for i:=1 to length(f) do
if f[i]='-' then
f[i]:='+' else
if f[i]='+' then
f[i]:='-';
writeln(f);
end;
но оно не работает, исправьте меня!