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

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

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

Подсказка: массив должен быть "of char".

var
  s: string;
  i: integer;
  m: array [1..8] of char;
begin
  write ('Введите произвольную строку: ');
  readln(s);
  if (length(s) < high(m)) then  // если в строке символов меньше, чем элементов в массиве
    writeln ('Ошибка')
  else
    for i:=low(m) to high(m) do  // обходим строку по количеству элементов в массиве
    begin
      m[i]:= s[i];
      write (m[i], ' ');
    end;
  readln();
end.                        

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

Введите произвольную строку: adhgsdhfsghsf34bgdf
a d h g s d h f