Урок 18 Задача 3

Урок 18 Задача 3:

Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

var
  a, code, i, j: integer;
  s: string;
begin
  write('Введите строку: ');
  readln(s);
  j:= 0;
  for i:=1 to length(s) do             // обходим строку по символам
  begin
    val(s[i], a, code);
      if  (code = 0) and (a >= 5) then // если встретилась цифра и она больше либо равна 5
      j:= j+1;                         // увеличиваем счетчик на 1
  end;
  write ('Ответ: ', j);
  readln();
end.

Вывод в консоли:

Введите строку: dgvh76dfgw5df1sdf4
Ответ: 3