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

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

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

type a = array[1..8] of char;
var  s :string;
     i, n, j :integer;
     arr : a;
begin
  s := 'Lorem5Ipsum7is1simply1dummy3text8of9the0printing4and6typesettin2industry';
  j := 0;
  n := 0;
  for i := 1 to length(s) do
    if (s[i] >= '0') and (s[i] <= '9') and (n < 8) then
    begin
      n := n + 1;
      j := j + 1;
      arr[j] := s[i];
    end;
  
  for i := low(arr) to high(arr) do
    write(arr[i], ' ');
end.