Lo que puedes hacer es declarar una arreglo de largo 2, donde en la primera posición guardes el primer valor y luego en la segunda posición guardes el segundo valor….
El código seria el siguiente.
//------------------------------------------------
procedure Run;
var
a: array of String;
begin
SetLength(a, 2); //Defines el largo del arreglo
a[0] := 'Valor_1'; //Asignas el valor 1
a[1] := 'Valor_2'; //Asignar el valor 2
Writeln(a[0]); // Muestra la valiable 1 "Valor_1"
end;
//------------------------------------------------
Espero te sirva
Saludos.
|