Problem
给定一个正整数序列a(1)，a(2)，...，a(n),(2<=n<=20) 不改变序列中每个元素在序列中的位置，把它们相加，并用括号记每次加法所得的和，称为中间和。

例如:

给出序列是4，1，2，3。

第一种添括号方法: ((4+1)+(2+3))=((5)+(5))=(10) 有三个中间和是5，5，10，它们之和为:5+5+10=20

第二种添括号方法 (4+((1+2)+3))=(4+((3)+3))=(4+(6))=(10) 中间和是3，6，10，它们之和为19。

现在要添上n-1对括号，加法运算依括号顺序进行，得到n-1个中间和，求出使中间和之和最小的添括号方法。

Input
本题包含多组数据，每组数据共两行。

第一行，为整数n。(2<=n<=20)

第二行，为a(1),a(2),...,a(n)这n个正整数，每个数字不超过100。

Output
对于每组数据，输出3行。

第一行，为添加括号的方法。

第二行，为最终的中间和之和。

第三行，为n-1个中间和，按照从里到外，从左到右的顺序输出。

Sample Input
3
2 2 2
4
4 1 2 3

Sample Output
((2+2)+2)
10
4 6
(4+((1+2)+3))
19
3 6 10

Source
MaoLaoDa

我的程序,但提交后是"Wrong answer",请各位帮我修改修改

program tju1246;
var a:array[1..21] of integer;
    n,temp,k,i,j:integer;
    cal:integer;
    ss:longint;
    sum:array[1..19] of integer;
    s:array[1..20] of string;

begin
repeat
  read(n);
  cal:=0;ss:=0;
  fillchar(a,sizeof(a),0);
  for i:=1 to n do s[i]:='';
  for i:=1 to n do read(a[i]);
  for i:=1 to n do str(a[i],s[i]);
  while cal<>n-1 do
    begin
      temp:=maxint;k:=1;
      for i:=1 to n-cal-1 do
          if  a[i]+a[i+1]<temp then begin
            temp:=a[i]+a[i+1];
            k:=i;
          end;
       inc(cal);sum[cal]:=temp;
       s[k]:='('+s[k]+'+'+s[k+1]+')';
       for i:=k+2 to n-cal+1 do s[i-1]:=s[i];
       a[k]:=temp;
       for i:=k+2 to n-cal+2  do  a[i-1]:=a[i];
    end;
  writeln(s[1]);
  for i:=1 to n-1 do inc(ss,sum[i]);
  writeln(ss);
  for i:=1 to n-2 do
    write(sum[i],' ');
  writeln(sum[n-1]);
until seekeof;
end.