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

Урок 18

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

var key, toInt, countOfInt, errorCode: integer;
    fromString: string;

begin
  countOfInt := 0;
  writeln('Введите строку');
  readln(fromString);
  for key := 1 to length(fromString) do
  begin
    val(fromString[key], toInt, errorCode);
    if (errorCode = 0) and (toInt >= 5) then
      inc(countOfInt);
  end;
  writeln(countOfInt);
  readln();
end.

КОНСОЛЬ

Введите строку
sv1erfv3v459
2