hacer una funcion?

[Descendents]

por cierto k es una variable general integer.

otra cose, puedes crea una array of string;

var
g:array of string;
begin
SetLength(g,2);
g[0] := 'hola';
g[1] := 'adios';
end;

que quieres modificar la longitud de la array pues haces
setlength(g,3);
g[0] := 'hola';
g[1] := 'adios';
g[2] := 'hola de nuevo';

Otra cosa que se me olvidadba

tambien puedes hacer algo como
var
n:integer;
begin
for n:= 0 to LO QUE SEA do begin
setlength(g,n+1);
g[n] := EL VALOR QUE LE ASIGNES;
end;
end;

Suerte