随手敲的，没调试。
var
  f,l:boolean;
  a:array ['A'..'Z'] of shortint;
  c,cc:char;
begin
  for c:='A' to 'Z' do a[c]:=0;
  f:=false; l:=true;
  while not eoln do begin
    read(c);
    case c of
      '-':f:=true;
      '+':f:=false;
      '=':l:=false;
      'A'..'Z':a[c]:=ord(f xor l)*2-1;
    end;
  end;
  readln; readln(cc);
  for c:='A' to 'Z' do if c<>cc then if a[c]<>0 then
    if a[c]<>a[cc] then write('+',c) else write('-',c);
  readln;
end.