Найти произведение всех цифр в строке - Pascal ABC

Дана строка. Найти произведение всех цифр в данном предложении. Спасибо за внимание!

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

p:=1;
k:=0;
for i:=1 to length(s) do
if s[i] in ['1'..'9'] then
 begin
  p:=p*(ord(s[i])-ord('0'));
  k:=1;
 end;
if k=0 then p:=0;
write(p);

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

В данном коде на языке Pascal ABC происходит следующее:

Переменная p инициализируется значением 1.
Переменная k инициализируется значением 0.
Запускается цикл for, который проходит по каждому символу в строке s.
Внутри цикла проверяется, является ли текущий символ цифрой от 1 до 9.
Если символ является цифрой, то переменная p умножается на произведение этого символа и его порядкового номера (от 0 для '0' до 9 для '9'). Переменная k инициализируется значением 1.
Если значение переменной k становится равным 0, то переменная p инициализируется значением 0.
По завершении цикла выводится значение переменной p.