Дано натуральное число, определите сколько раз в нём встретится последняя цифра - Pascal ABC

var  c, last, k: integer;
     label 1;
begin
write('Введите число: ');
readln(c);
last:=c mod 10;
k:=1;
writeln('Последняя цифра: ', last);
1:c:=c div 10;
if c mod 10 = last then inc(k);
if c>0 then goto 1;
writeln('Количество раз встречается последняя цифра: ', k);
end.