Урок 16. Задача №4. Решение.

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

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

var str : string;
  i, j : integer;
  arr : array[1..8] of char;

procedure ShowArr();
begin
  writeln('First 8 digits in your string: ');
  for i := 1 to high(arr) do
    write(arr[i]);
end;

begin
  writeln('Enter arbitrary string: ');
  readln(str);
  for i := 1 to length(str) do
    if (str[i] >= '0') and (str[i] <= '9') and (j <= 8) then
    begin
       j += 1;
       arr[j] := str[i];
    end;

  ShowArr();

  readln(); // Удержание консоль
end.// Завершение программы