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

Задача 4 Урок 181. Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

var n, s: string;
    i, j: integer;
    intChislo, Code : Integer;
    q:integer;
begin
    writeln('enter');
    //readln(s);
    s:='123fdgF34sdf45g';
    q:=0;
    for i := 1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then
      begin
       n:= n+s[i];
       val(s[i],intChislo, Code);
       q:=q+intChislo;
       if not ((s[i + 1] >= '0') and (s[i + 1] <= '9')) and (n <> '') then
        begin
         if q>=5 then
           begin
             writeln('> 5 here  ',n,' ', q);
             q:=0;
             n:='';
           end;
        end;
      end;

    readln();
end.      

Вывод консоли:

enter
> 5 here  123 6
> 5 here  34 7
> 5 here  45 9