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

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

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

123ret34#2145esrt5

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

2145

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

program u18z4;
var
  a,code,i,n,j: integer;
  s,b: string;
begin
  writeln('Vvedite stroku');
  readln(s);
  n:=0;
  b:='';
  j:=0;
  for i:=1 to length(s)+1 do
  begin
    val(s[i], a, code);
    if (code=0) then
    begin
      b:=b+s[i];
      n:=n+1;
    end
    else if (n>0) then
    begin
      val(b, a);
      if (a>125) then
        j:=j+1;
      n:=0;
      b:='';
    end;
  end;
  write(j);
  readln();
end.