Как сделать так чтобы все значения массива считывались из одной строки. паскаль

var
  str, str1: string;
  arr: array [1..256] of byte;
  i, i2: byte;
  err: integer;

begin
  readln(str);
  
  str := concat(str, ' ');
  for i := 1 to length(str) do
  begin
    if (str[i] = ' ') then
    begin
      i2 := i2 + 1;
      val(str1, arr[i2], err);
      str1 := '';
    end
    else
      str1 := concat(str1, str[i]);
  end;
    
  for i := 1 to length(str) do
    write(arr[i]:4);
end.