Vetor dinâmico

Var
vetor_string_dinamico: array of string;
i: integer;
begin
setLength( vetor_string_dinamico, 10 );
for i := 0 to high( vetor_string_dinamico) do begin
vetor_string_dinamico[ i ] := IntToStr( i );
end;.
//-----------------------------------------------------------------
var
vetor_taluno: array of TAluno;
begin
setLength( vetor_tAluno, 5 );
vetor_tAluno[0] := TAluno.Create;
vetor_taluno[0].Codigo := valor;

//-----------------------------------------------------------------
var
vetor_string_dinamico: array of string;
i: integer;
begin
setLength( vetor_string_dinamico, 10 );
for i := 0 to high( vetor_string_dinamico) do begin
vetor_string_dinamico[ i ] := IntToStr( i );
end;

//-----------------------------------------------------------------

type
vetor_dinamico = array of TAluno;
var
vetor_aluno: vetor_dinamico;