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

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

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

program u17z4;
type Arr = array[1..8] of char;
var s: string;
    i,n: integer;
    a: Arr;
begin
  writeln('vvedite stroku:');
  readln(s);
  n:=1;
  for i:=1 to length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') and (n<=8) then
    begin
      a[n]:=s[i];
      n:=n+1;
    end;
    if n>8 then
      break;
  end;
  for i:=1 to n do     //выводим массив
    write(a[i],'');
  readln;
end.