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

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

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

var a:array [1..3] of integer; s:string; i,t,j,k,l,h:integer; x:array [1..3] of string;

begin
  s:='fdg1237F34sdfg400';
  k:=0;
  j:=1;
  t:=1;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and (s[i]<='9')then
    begin
      k+=1;
      if k=1 then
        t:=1;
      if t>k then
      begin
        j+=1;
        t:=k;
      end;
      x[j]:=x[j]+s[i];
    end;
    t+=1;
  end;
  for j:=1 to high(x) do
  begin
    val(x[j],a[j],l);
    if a[j]>125 then
    h+=1;
  end;
  write(h);
  readln();
end.