Урок 16. Задача №5. Решение.

Урок 16. Задача №5.

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

rew2@#$$#435tr353453t4er4

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

2
435
353453
4
4

Подсказка: массив должен быть "of string".

var str : string;
  i, j : integer;
  arr : array[1..8] of string;
begin
  j := 1;
  writeln('Enter arbitrary string: ');
  readln(str);
  for i := 1 to length(str) do
    if (str[i] >= '0') and (str[i] <= '9') and (j <= 8) then
    begin
       arr[j] := str[i];
       writeln(arr[j]);
       j += 1;
    end;

  readln(); // Удержание консоль
end.// Завершение программы