Требуется подсказка по задаче - Pascal

Формулировка задачи:

Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 2 секунды Ограничение по памяти: 256 мегабайт Каждый вечер Человек-Паук садится за свой компьютерный стол и записывает на лист бумаги все числа в диапазоне от l до r включительно. К сожалению, Человек-Паук очень не любит цифру девять. Поэтому он всегда пропускает числа, в которых есть цифра девять. Ваша задача — по заданным l и r определить, сколько чисел Человек-Паук запишет на лист бумаги, если учитывать, что лист вмещает неограниченное количество чисел. Формат входных данных В единственной строке расположены два числа l и r — границы диапазона чисел, которые Человек-Паук будет записывать (1 ⩽ l ⩽ r ⩽ 1015). Обратите внимание, так как Человек-Паук не любит девятки, гарантируется, что l и r также не содержат девяток!

Формат выходных данных

В единственной строке выведите ответ — количество записанных на листе чисел.

Примеры

1 10 = 9 80 100 = 10 Замечание В первом тестовом примере из отрезка [1, 10] Человек-Паук выпишет все числа, кроме числа 9. Во втором тестовом примере Человек-Паук выпишет все числа, кроме 89, 90, 91, . . . , 99. Кто горит желанием сильно помочь - может написать решение, но меня больше интересует вопрос как реализовать проверку чисел на ту самую девятку, писать можно на любом языке, лучше кодом. Заранее спасибо.

Решение задачи: «Требуется подсказка по задаче»

Листинг программы

var
A,r,l:Integer;
b,c:String;
const Dig=9;
begin
Read(l,r);
str(Dig,c);
for l:=l to r Do 
begin
str(l,b);
if pos(c,b)=0 then
A:=A+1;
End;
Write(A);
end.

Объяснение кода листинга программы

В данном коде выполняется подсчет количества вхождений строки Dig в строку b.

В первой строке объявляются переменные: — A, r, l — целочисленные переменные; — b, c — строковые переменные.
Вторая строка считывает два числа (l и r) и две строки (b и c).
Третья строка задает значение константы Dig.
В цикле от l до r происходит следующее: — Четвертая строка считывает строку b. — Пятая строка проверяет наличие подстроки c в строке b. — Если подстрока найдена, то значение переменной A увеличивается на единицу.
После окончания цикла, значение переменной A выводится на экран.