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

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

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

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