Помогите пожалуйста
Дано натуральное число. Определить:

а) количество цифр 3 в нем;

б) сколько раз в нем встречается последняя цифра;

var  n:longint;  d,dn,m,k:integer;begin  Write('Введите натуральное число: '); Read(n);  m:=0; k:=0;  dn:=n mod 10;  repeat    d:=n mod 10;    if d=3 then Inc(m);    if d=dn then Inc(k);    n:=n div 10  until n=0;  Writeln('Количество цифр 3 в числе равно ',m);  Writeln('Последняя цифра встречается в числе ',k,' раз(а)')end.Тестовое решение:Введите натуральное число: 1035334030Количество цифр 3 в числе равно 4Последняя цифра встречается в числе 3 раз(а)