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

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.

10 rem создание массива а для заполнения списком из 10 чисел 20 dim a (1,10): 30 rem начало цикла для заполнения массива 40 for i=1 to 10 50 rem формирование запроса на ввод i-го числа 60 print “введите”, i, “-ое число” 70 rem ввод i-го числа 80 input j 90 rem присвоение i-му элементу массива значения числа 100 a(i)=j 110 next i 120 rem цикл сортировки списка чисел по возрастанию 130 for i =1 to 9 140 for j=i+1 to 10 150 rem условие для списка 160 if a(i)> a(j) then b=a(i): a(i)=a(j): a(j)=b 170 next j, i 180 rem цикл вывода списка на экран 190 for i=1 to 10 200 print а(i) 210 next i работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. работает!

Иван: французский, китайский. антон: , японский. пётр: шведский, греческий. поясняю на сколько это возможно. 2) антон не знает шведский и французский. 3)пётр (он самый высокий - пункт 1) не знает французский. значит, французский - иван. 4) пётр не знает яп. и кит. 5) антон не знает кит. и греч. 4),5) => китайский - иван. с иваном 2),5) => антон не знает греческий и шведский (фр. и кит. уже у ивана). значит, их знает пётр. антону, в таком случае, достаются и японский. надеюсь, понятно.