В введенной с экрана строки вывести все нечетные числа - Pascal ABC

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

В введенной с экрана строки вывести все нечетные числа(0-9), учесть случай, если таких элементов нет

Решение задачи: «В введенной с экрана строки вывести все нечетные числа»

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

k:=0;
for i:=1 to length(s) do
if s[i] in ['1','3','5','7','9'] then
 begin 
  k:=1;
  write(s[i],' ');
 end;
if k=0 then write('В строке нет нечетных цифр');

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

Переменная k инициализируется значением 0.
Происходит цикл по символам строки s от 1 до длины строки.
Если текущий символ является одним из нечетных чисел ('1','3','5','7','9'), то
- Переменная k изменяется на 1.
- Текущий символ выводится на экран.
Если значение переменной k осталось равным 0 после цикла, выводится сообщение В строке нет нечетных цифр.