Решение №4 из главы 16.Запишите первые 8 символов цифр в массив и выведите этот массив на экран

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

Задача №4

program pascal_8digits_in_string;
var Arr : array [1..8] of char;
var i,n : integer;
    s : string;
begin
  n := 0;
  writeln('input string');
  readln( s ); // считываем  строку
  for i:=1 to length( s ) do // обходим строку с целью иницилизации  массива символами
    if ( s[i] >= '0' ) and ( s[i] <= '9' ) then 
    begin
      n+=1;
      Arr[n] := s[i]; 
      if ( n = 8 ) then // если массив наполнен то завершаем
        break;   
    end;
  for i:= 1 to high(Arr) do // обходим второй раз с целью его  вывода
    write( Arr[i] , ' '); // выводим символы
readln();
end.