Определить сколько и каких цифр встречается в записи числа

var
a,b,c:longint;
begin
writeln('Vvedite chislo');
readln(a);
while a>0 do
begin
c:=a mod 10;
a:=a div 10;
b:=b+1;
writeln(c,'-',b);
end;
end.

var
a,b,c:longint;
i:byte;
begin
readln(a);
 
for i:= 0 to 9 do
  begin
  c:=0;
  b:=a;
  while b<>0 do
    begin
    if b mod 10 = i then inc(c);
    b:=b div 10;
    end;
    if c<>0 then
   writeln(i,' - ', c, ' raz ');
   end;
 readln;
 end.

var
  d: array [0..9] of Integer;
  n: Longint;
  i: Integer;
begin
  Write('Введите число: '); ReadLn(n);
  repeat
    Inc(d[n mod 10]); n:=n div 10;
  until n=0;
  WriteLn('Количество цифр в числе ',n,':');
  for i:=0 to 9 do if d[i]>0 then WriteLn(i,' - ',d[i]);
end.

var
  n, m: Longint;
  i, d: Integer;
begin
  Write('Введите число: '); ReadLn(m);
  WriteLn('Количество цифр в числе ',m,':');
  for i:=0 to 9 do begin
    d:=0; n:=m;
    repeat
      if n mod 10=i then Inc(d);
      n:=n div 10;
    until n=0;
    if d>0 then WriteLn(i,' - ',d);
  end;
end.

var
  a: array [0..n-1] of Integer;
  b: array [-n..n] of Integer;