В String и Array сразу.

[Cubaholic]

{консолька}
Вводим один раз через пробел ряд целых чисел;
Нам нужно этот ряд присвоить сначала переменной S: string,
а потом уже массиву A.
Т.е. если мы вводим 5 элементов: 2 3 1 2 4
, то сначала получаем s='2 3 1 2 4',
а потом уже a[1]=2; a[2]=3; a[3]=1; a[4]=2; a[5]=4.
Помогите плиз
За ранее благодярю.

[mihali4]

Куда вводим?
В чем помочь?

[puporev]

s:string;
a:array[1..n]of byte;
i:integer;
..............
write('s=');//вводим числа через пробел
readln(s);
s:=s+' '; //добавим пробел в конец
i:=0;
while pos(' ',s)>0 do
   begin
     i:=i+1;
     a[i]:=strtoint(copy(s,1,pos(' ',s)-1));
     delete(s,1,pos(' ',s));
    end;

[Cubaholic]

Еще раз СПАСИБО большое
Очень помогли.