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

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

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:
123ret34#2145esrt5
такое число только одно и это:
2145
(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

program U17Z3;
type
  Tarr = array [1..8] of integer;
var
  c: Tarr;
  i,p: integer;
  s: string;
procedure cleanArr(var z:Tarr);
var b:integer;
    m:Tarr;
begin
 for b:=low(m) to high(m) do
   m[b]:=0;
   b:=b+1
end;
function netNum (s:string):Tarr;
var w:string;
  n:Integer;
  a: Tarr;
begin
  n:=1;
  readln(s);
  for i:= 1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      w:=w+s[i];
    end
    else if (w<>'') then
    begin
      val(w,a[n]);
      n:=n+1;
      w:=''
    end;
      val(w,a[n]);
    end;
  result:=a;
end;
begin
  cleanArr(c);
  c:= netNum(s);
  for i:=low(c) to high(c) do
  begin
      if (c[i]>125) then
      p:=p+1;
  end;
  write('Kolichestvo chisel bolshe 125 :',' ', p);
  readln();
end.