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

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

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

rew2@#$$#435tr353453t4er4

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

2
435
353453
4
4

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

program U16Z6;
var a: array [1..8] of string;
    s: string;
    i,j: integer;
begin
  writeln('vvedite stroku s');
  readln(s);
  j:=1;
  a[j]:='';
  for i:=1 to length(s) do
  begin
    if (s[i]>='0') and (s[i]<='9') then
      a[j]:=a[j]+s[i]
    else
      if (a[j]<>'') then
      begin
        writeln(a[j]);
        if (j=8) then
          break;
        j:=j+1;
      end;
  end;
  readln();
end.