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

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

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

123ret34#2145esrt5

такое число только одно и это:

2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

var n, s: string;
    i, j, sl, o, int, c: integer;
    a: array of integer;
begin
    write('Введите произвольную строку: ');
    readln(s);
    sl := length(s);
    for i := 1 to sl do
     if (s[i] >= '0') and (s[i] <= '9') then
      begin
       n += s[i];
       if not ((s[i + 1] >= '0') and (s[i + 1] <= '9')) and (n <> '') then
        begin
         j += 1;
         setlength(a, j);
         val(n, int, o);
         a[j - 1] := int;
         n := '';
        end;
      end;
    for i := 0 to j - 1 do
     if a[i] > 125 then c += 1;
    writeln('Количество чисел больших 125: ', c);
    readln();
end.