一个小程序不知道如何下手``

数字为：1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

如果1出现5次为百分之几，2出现8次为百分之几，3出现9次，4出现0次，5出现2次，一直到16
DELPHI如何做这个百分之几的小程序

有没有人知道怎么写啊```

var
  dim:  TStringList;
  Numcount: array[1..16] of integer;
  i,Num:  Integer;
  percent:  Extended;
begin
  dim:= TStringList.Create;
  dim.DelimitedText:= Memo1.Text;             //将数字串放入stringlist
  dim.Delimiter:= ' ';
  percent := 100 / dim.Count;                  //计算百分比基数
  Num :=0;

  for i := 1 to High(NumCount) do              //初始化计数器
  begin
    Numcount[i]:=0;
  end;

  for i := 0 to dim.Count-1 do                 //计算数字出现个数
  begin
    Num:= StrToInt(dim.Strings[i]);
    if (Num > 16)or (Num < 1 )  then
     Exit;
    Inc(Numcount[Num]);
  end;

  for i := 1 to High(Numcount) do
  begin
    Memo1.Lines.Add(Format('%d出现%d次，出现几率%.2f%%',[i,NumCount[i],percent*Numcount[i]]));   //输出结果
  end;

  dim.Free;
end;