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

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.