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

Строки как одномерные массивы

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

var s: string;
    i: integer;
    arr:array [1..8] of char;
begin
  writeln('write rnd string:');
  readln(s);
  for i:=1 to high(arr) do
    arr[i] := s[i];
  for i:=1 to high(arr) do
    write(arr[i], ' ');
  readln();
end.

//write rnd string:
//1a2bfsdfsdfsdf
//1 a 2 b f s d f