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

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

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

program u17z6;
type  Arr = array[1..8] of string;
var s: string;
    i,n: integer;
    q: boolean;
    a: Arr;
begin
  writeln('vvedite stroku:');
  readln(s);
  q:=false;
  n:=0;
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      if (not q) then
        n:=n+1;
      q:=true;
      a[n]:=a[n]+s[i];
    end
    else
    begin
      if (q) then
        q:=false;
    end;
  end;
  for i:=1 to n do
  writeln(a[i]);
  readln;
end.