[kizup]

А как ты собираешься это сделать если у тебя массив чисел,а переменная строкового типа. Либо развивать парсить строку а потом пользоваться stringToInteger(s:string). Но мне кажется есть более простой способ через цикл
x:=1;
for i:=1 to 7 do
begin
data[i]:=x;
x:=x+1;
end;
Если че то не так поправьте