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

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

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

var i,k:integer; s:string; a:array [1..10] of char;
begin
  readln(s);
  k:=0;
  for i:=1 to Length(s) do
  begin
    if (s[i]>='0')and(s[i]<='9') then
    begin
      inc(k);
      a[k]:=s[i];
    end;
  end;
  for i:=low(a) to k do
    write(a[i]);
  readln();
end.