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

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

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

rew2@#$$#435tr353453t4er4

должны быть выделены подстроки:

2
435
353453
4
4

var i, ii: integer;
    s, s0: string;
    a: array[1..8] of string;
begin
  ii :=  1;
  writeln('vvedi stoky');
  readln(s);
    for i := 1 to length(s) do
      if((s[i] >= '0') and (s[i] <= '9')) then
        begin
          s0 := s0 + s[i];
        end
      else if(s0 <> '') then
        begin
          a[ii] := s0;
          s0 := '';
          inc(ii);
        end;
    a[ii] := s0;// на слечай если после последнего числ литерала отсутствуют буквы
    for i:= low(a) to high(a) do
      writeln(a[i]);
  readln();
end.