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

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

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

123ret34#2145esrt5

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

2145

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

var s: string;
    i, n, count: integer;
    arr: array[1..8] of string;
    digit: boolean;
begin
  writeln('write string with nums');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
    begin
      if (s[i]>='0') and (s[i]<='9') then
       begin
        digit := true;
        arr[n] := arr[n] + s[i];  //записать все чиcла в строковый массив
       end
      else
        if (digit) then
          begin
            n:=n+1;
            digit := false;
          end;
      end;

  for i:=0 to high(arr) do
    begin
      val(arr[i], n);    // преобразовать значения в числа
      if n >= 125 then   // проверить условие задачи
        count += 1;
    end;

  writeln('String contains ',count,' digits >= 125.');
  readln();
end.

//write string with nums
//3423eqwdf4534fsdfewfw4532556gdgdfgdfg532sf32gg
//String contains 4 digits >= 125.