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

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

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

type myArr = array[1..8] of char;
var s: string;
  i, n: integer;
  a: myArr;
begin
    write('Enter the drain ');
    readln(s);
    for i := 1 to length(s) do
     if (s[i] >= '0') and (s[i] <= '9') then
      begin
       n += 1;
       a[n] := s[i];
      end;
     for i := 1 to 8 do
      write(a[i], ' ');
    readln();
end. 

Вывод консоли:

Enter the drain 1q2q3q4q5q6qw7w8q9q
1 2 3 4 5 6 7 8