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

Урок 17. Явное приведение типа в Паскаль -- преобразование строки в число

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

var s: string;
    i, n: integer;
begin
  writeln('write string with nums');
  readln(s);
  for i:=1 to length(s) do
    begin
      if (s[i]>='5') and (s[i]<='9') then inc(n);
    end;
  writeln('This string contains ',n,' digits >= 5.');
  readln();
end.

//write string with nums
//3kfsldkf3245456323409099ug0dfg
//This string contains 6 digits >= 5.