помогите решить 29 задание на картинке

const n=5;
var a,x:integer;
k,s,j,m:integer;
b:array[1..n] of integer;
begin
writeln('Введите ',n, ' значное число');
readln( a ); x:=a;
s:=0;k:=0;
while ( x <> 0 ) do begin
s := s + (x mod 10);
inc(k);
b[k]:= (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );

for j:=0 to 9 do
begin m:=0;
for k:=1 to n do
begin
if b[k]=j then inc(m);
end;
//конкретное условие сколько раз встречается цифра 4 и 8 в введенной цифре
if m>0 then
writeln('цифра ',j,' встречается ',m, ' раз' );
end;

end.