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

Задача 4 Урок 16:

Пользователь вводит строку произвольных символов, запишите первые 8 символов цифр в массив и выведете этот массив на экран.
Подсказка: массив должен быть "of char".

var s: string;
  i, n: integer;
  a: array [1..8] of char;
begin
    write('Введите произвольную строку: ');
    readln(s);
    for i := 1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then
      begin
       n += 1;
       if n < 9 then a[n] := s[i];
      end;
    if n > 7 then
     for i := 1 to 8 do
      write(a[i], ' ');
    readln();
end.