Сложение в троично-симметричной системе, Нада сложить 2а числа в троичной симметричной системе, а числа заданны Опции

[Kumpi]

Нада сложить 2а числа в троичной симметричной системе, а числа заданны символьным типом данных..Помогите пожалуйста!

[Гость]

Вот посматри

uses crt;
var
  n, ost: integer;
  s,l,g: string;
procedure q ;
begin
clrscr;
  write('n = '); readln(n);

  s := '';
  while n >= 3 do begin
    ost := n mod 3;

    case ost of
      0: s := '0' + s;
      1: s := '+' + s;
      2: s := '+-' + s;
    end;

    n := n div 3;
  end;

  case n of
    0: s := '0' + s;
    1: s := '+' + s;
    2: s := '+-' + s;
  end;
  writeln('s(3) = ', s);
end;
procedure wq ;
begin
  write('n = '); readln(n);

  l := '';
  while n >= 3 do begin
    ost := n mod 3;

    case ost of
      0: l := '0' + l;
      1: l := '+' + l;
      2: l := '+-' + l;
    end;

    n := n div 3;
  end;

  case n of
    0: l := '0' + l;
    1: l := '+' + l;
    2: l := '+-' + l;
  end;
  writeln('l(3) = ', l);
end;
procedure qw;
begin
g:=s+l;
write (g);
end;
begin
q;
wq;
qw;
end.

это конечно бред тупа 2е строчки складывает да и мне нужно чтоб вводить в троичной, ничего не понял(( помогите пожалуйста