[Bargest]

Код:

var a:array[0..9]of integer;
...
for i:=1 to length(s) do
 inc(a[strtoint(s[i])]);

в каждой ячейке массива будет лежать кол-во соответствующих цифр. В a[0] - нулей, в a[1] - единиц и т.д.