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

Строки как одномерные массивы

{16 - 6
Пользователь вводит строку произвольных символов, выделите из неё массив первых 8 строковых литералов,
которые являются числами. И выведите эти числа на экран.
Например, из строки:
rew2@#$$#435tr353453t4er4
должны быть выделены подстроки:
2
435
353453
4
4}

var s: string;
    i,n: integer;
    arr:array[1..8] of string;
    digit: boolean;
begin
  writeln('write rnd string:');
  readln(s);
  n:=0;
  for i:=1 to length(s) do
    begin
      if (s[i]>='0') and (s[i]<='9') then
       begin
        digit := true;
        arr[n] := arr[n] + s[i];
       end
      else
        if (digit) then
          begin
            n:=n+1;
            digit := false;
          end;
      end;
  for i:=0 to high(arr) do
    begin
      if arr[i] = '' then
        break;
      writeln(arr[i]);
    end;
  readln();
end.

//write rnd string:
//kpokf32434kj;kfs032421kf90-2=0o0-234l

//32434
//032421
//90
//2
//0
//0
//234