Задание 3 урок 18

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

Задание 3 урок 18

type
  arr = array [1..8] of integer;
var
  a: arr;
  i,j,C: integer;
  s,s1: string;
begin
    C:=0;
    j:=1;
    s1:='';
    writeln('vvedite stroku');
    //readln(s);
    s:= '232ret349#2145esrt5';
    for i:= 1 to length(s) do
    begin
      if (s[i]>='0')and(s[i]<='9') then
        s1:=s1+s[i]
        else if (s1<>'') then
      begin
        val(s1,a[j]);
        j:=j + 1;
        s1:=''
      end;
    end;
    writeln('Chisla v massive');
    for i:=1 to j do
      writeln(a[i]);
    for i:=low(a) to high(a) do
    begin
      if (a[i]>125) then
      C:= C + 1;
    end;
    write('Kolichestvo chisel bolshe 125 :',' ', C);
    readln();
end.