Задача 6 Урок 17

Задача 6 Урок 17

Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов, которые являются числами. И выведите эти числа на экран.

Например, из строки:
▶
?
1

rew2@#$$#435tr353453t4er4

должны быть выделены подстроки:
▶
?
1
2
3
4
5

2
435
353453
4
4

var i,k,t,j:integer; s:string; a:array [1..8] of string;
begin
  readln(s);
  k:=0;
  j:=1;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      inc(k);
      if k=1 then
        t:=0;
      if k>0 then
      begin
        if t>k then
        begin
          j+=1;
          t:=k;
        end;
        a[j]:=a[j]+s[i];
      end;
    end;
    t+=1;
  end;
  for j:=1 to 8 do
    writeln(a[j]);
  readln();
end.