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

Задача 2 Урок 17:

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

var i, int, c, o, l: integer;
  s: string;
begin
  writeln('Введите строку:');
  readln(s);
  l := length(s);
  for i := 1 to l do
   begin
    val(s[i], int, o);
    if o = 0 then
     if int >= 5 then c += 1;
   end;
  writeln('Число цифр >= 5: ', c);
  readln();
end.