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

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

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125.

var
  s, n: string;
  i, j, a: integer;
begin
  write ('Введите строку: ');
  readln(s);
  i:= 0;
  j:= 0;
  while not (i > length(s)) do           // цикл для обхода строки
  begin
    i:= i+1;
    if (s[i]>='0')and(s[i]<='9') then    // если встретилось число
    begin
      for i:= i to length(s) do
        if not ((s[i]>='0')and(s[i]<='9')) then  // если встретилось "не число"
          break                                  // выходим из вложенного цикла
        else
          n:= n + s[i];
      val(n, a);        // преобразовываем строку в число
      if a > 125 then   // если полученное число больше 125
      begin
        j:= j + 1;      // увеличиваем счетчик чисел, больших, чем 125
        writeln (a);    // выводим это число для наглядности
      end;
      n:= '';
    end;
  end;
  writeln ('Количество чисел, больших, чем 125: ', j);
  readln();
end.

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

Введите строку: sfhfgh346sdfg3fdh546dfh76
346
546
Количество чисел, больших, чем 125: 2