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

已知一个整型数组（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;

看错了，没注意 30。把上面 99 改为 30 即可。