Помогите решить задание по программированию на паскале

С таким заданием(по подсчету различных цифр) первый раз столкнулся, решал только с подсчетом отдельных чисел.Вот то что сам сделал, в конце после while надо поправить я думаю.
{Значение выражения 4 34 + 5 · 4 22 + 4 13 + 2 · 4 9 + 82 записали в системе счисления с основанием 16. Сколько разных цифр встречается в этой записи?}
var a,k,osn:biginteger;
begin
osn:=4;k:=0;
a:=osn**34+5*osn**22+osn**13+2*osn**9+82;
while a>0 do begin
if a mod 16 then k:=k+1;
a:=a div 16;
end;
writeln(k);
end.