求数组中整数的头数和、尾数和有关问题

求数组中整数的头数和、尾数和问题
已知一个整型数组（data:array[0..6] of integer; ）中存有7个1-30以内的整型数据，7个数字中可能是一位数（如5，则可看成为05，头数为0，尾数为5），也可能是两位数（如29，头数为2，尾数为9）。如何求出数组中7个数字的头数相加之和，以及尾数相加之和。分别输入到两个edit控件框中。

要求给出代码，给出的代码可行立即给分。

[解决办法]

Delphi(Pascal) code

procedure TForm1.btn1Click(Sender: TObject);var  i, sum1,sum2: integer;  data:array[0..6] of integer;begin  Memo1.Lines.Clear;  Randomize;  for I := Low(data) to High(data) do  begin    data[i]:=random(99);    Memo1.Lines.Add(inttostr(data[i]))  end;  sum1:=0;  sum2:=0;  for I := Low(data) to High(data) do  begin    sum1:=sum1+(data[i] mod 10);    sum2:=sum2+(data[i] div 10);  end;  Edit1.Text:=inttostr(sum1); //个位数之和  Edit2.Text:=inttostr(sum2); //十位数之和end;