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

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

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

var
  I, h, n, t, Code : Integer;
  S: string;
  a: array[1..100] of string;
  flag: boolean;

begin
 n:=1; //порядковый номер массива а
 t:=0; //количество > 125
 writeln('Vvedite stroku');
 readln(S);
 for h:=1 to length(S) do //формируем массив чисел из найденых
   begin                             //цифр в введеной строке
     if (S[h]>='0')and(S[h]<='9') then //если цифра
       begin
         a[n]:=a[n]+S[h];
         flag:=true;
       end;
     if (Not((S[h+1]>='0')and(S[h+1]<='9'))) AND flag then
       begin             //еслиследущая после цифры - НЕ ЦИФРА
         inc(n);      //изменяем индекс массива
         flag:=false  //флаг что бы неизменять индекс лишний раз
       end;
   end;
 for h:=1 to high(a) do
   begin          //если числа записали верно и они > 125
     Val(a[h], I, Code);
     if (Code=0) AND (I >=125) then
       inc(t);    //прибавляем счетную переменную
   end;


 writeln('V stroke ',t,' chisel > 125');
 readln();
 end.