s: array of string;
setlength(s, 10);
s[1] := 'hello';