Помогите с текстом

[Кронос]

Дано:
var
text:string;
s:array of string;

Помогите в каждую ячейку массива забить последовательно каждый символ из строки, которая вбита в значение переменной s.

[prizrak1390]

var
i:integer;
text:string;
s:array of string;
begin
......
for i:=1 to length(text) do
s[i]:=text[i];

помоему так...%)

[Gauss]

var
text: string;
i: byte;
s: array[1..k] of char;
begin
for i:=1 to length(text) do
s[i]:=text[i];

наверное так)