Рассчитать кол-во каждой цифры длинного целого числа (до 256 цифр) и вывести результат

procedure TForm1.Button1Click(Sender: TObject);
var b: array of integer;
  x: integer;
  i, j, n, bol: integer;
begin
  n := 256;
  setlength(b, n);
  x := strtoint(edit1.text);
  for i := 0 to 9 do
  begin
    b[i] := 0;
  end;
  while x <> 0 do
  begin
    for i := 0 to 9 do
    begin
      if i = (x mod 10) then
        b[i] := b[i] + 1;
    end;
    x := (x div 10);
  end;
 
    edt1.text := edt1.text + ' ' + inttostr(b[0]);
    edt2.text := edt2.text + ' ' + inttostr(b[1]);
    edt3.text := edt3.text + ' ' + inttostr(b[2]);
    edt4.text := edt4.text + ' ' + inttostr(b[3]);
    edt5.text := edt5.text + ' ' + inttostr(b[4]);
    edt6.text := edt6.text + ' ' + inttostr(b[5]);
    edt7.text := edt7.text + ' ' + inttostr(b[6]);
    edt8.text := edt8.text + ' ' + inttostr(b[7]);
    edt9.text := edt9.text + ' ' + inttostr(b[8]);
    edt10.text := edt10.text + ' ' + inttostr(b[9]);
end;

var s:string;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8]) then key:=#0;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    a:array['0'..'9'] of integer;
    c:char;
    i:integer;
begin
s:=Edit1.Text;
for c:='0' to '9' do
a[c]:=0;
for i:=1 to length(s)do
inc(a[s[i]]);
for c:='0' to '9' do
if a[c]>0 then Memo1.Lines.Add(c+'='+inttostr(a[c]))
end;

//процедура разрешает ввод в Эдит только цифр и BackSpase
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in ['0'..'9',#8]) then key:=#0;//емли другое, то ничего
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var s:string; //строка
    a:array['0'..'9'] of integer;//массив встречаемости цифр
    c:char; //счетчик цикла по символам
    i:integer; //счетчик цикла по числам
begin
s:=Edit1.Text;//читаем строку
for c:='0' to '9' do //присваиваем всем ячейкам массива 0
a[c]:=0;
for i:=1 to length(s)do //идем по строке
inc(a[s[i]]);//какую цифру встретили, в ту ячейку +1
for c:='0' to '9' do //выводим символы цифр от 0 до 9
if a[c]>0 then Memo1.Lines.Add(c+'='+inttostr(a[c]))//и их количество, если не 0
end;